This will get the first line from a sequential text file.
Code:
Private Sub Command1_Click()
Dim MyString
Dim FileNum As FreeFile
Open "YourTextFile.txt" For Input As #FileNum
Input #FileNum, MyString
Close #FileNum
Text1 = MyString
End Sub
Sometimes what you're looking for is exactly where you left it.