Maybe try someting like this:

Private Sub Command1_Click()
Dim tmpVar as String
Open “pathname” For Input As #1
Line Input #1, tmpVar

If LOF(#1) = 193 Then
Text1.text = tmpVar
Else
End Sub

or something to that matter.