vba - ユーザーフォームボタンでディレイ中の正しいvbaコーディング

Question

以下のコードは別のモジュールではうまく機能しますが、ユーザーフォーム ボタンに使用するとうまくいきません。ファイルの内容がすぐにウィンドウに表示されません。修正またはご指導をお願いします。ありがとうございました

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) (引用符) を削除したところ、機能しました。