Here is some simple code to read from a text file until it is empty. The
parsing of the information is simple, the record read is broken into three
fields of a ten characters.
Public Sub Read_Text()
Dim TextLine As String, Field1 As String, Field2 As String, Field3 As String
Open "C:\My Documents\Testfields.txt" For Input As #1
Do While Not EOF(1) ' Loop until end of file.
Line Input #1, TextLine ' Read line into variable.
Field1 = Trim(Mid(TextLine, 1, 10))
Field2 = Trim(Mid(TextLine, 11, 20))
Field3 = Trim(Mid(TextLine, 21, 30))
Loop
Close #1
End Sub