Private Sub Command1_Click()
Dim a As String
Open "c:\pippo.txt" For Input As #1
Input #1, a
Close #1
Text1.Text = a
End Sub

sono due parole separate da virgola