請問一個關於開啟檔案的問題(編號：32946)

目標是要讀Text中的內容.開啟檔案
以下是程式碼
Private Sub Command1_Click()
Dim FilePathName As String
　　Dim CurrentPath As String
　　CurrentPath = Text1.Text
　　FilePathName = "Start" & Space(1) & CurrentPath
　　Shell FilePathName
End Sub
可是都會出現執行階段錯誤"53" 找不到檔案
請問有人可以幫我看一下問題出在哪裡嘛
謝謝!!