ユーザーフォームボタンでデリケートしているときの正しいVBAコーディング

Question

以下のコードは別のモジュールでうまく動作しますが、userformボタンで使用すると正しく動作しません。ファイルの内容を直接ウィンドウに表示しません。訂正またはガイダンスを要求します。 はあなたに

Private Sub UploadBut_Click() 

Dim TextFile As Integer 
Dim FilePath As String 
Dim FileContent As String 
Dim P As String 

ありがとう「BrowseFile.Valueは私の神ああファイルのパスをキャプチャし、私のユーザーフォームのテキストボックス

If BrowseFile.Value = "" Then 
MsgBox "Please Select File", , "Upload File" 
Else 
On Error Resume Next 
P = Chr(34) & BrowseFile.Value & Chr(34) 
TextFile = FreeFile 

FilePath = P 
FileContent = Input(LOF(TextFile), TextFile) 
Debug.Print FileContent 

Close TextFile 
End If 

End Sub 

Answer 1

です！どのように私は愚かです。私はちょうどChr（34）（引用符）を削除し、それは働いた。