Example - Input # Statement

Sub Main()
    Dim MyString, MyNumber
    Open "D:\Temp\TESTFILE.txt" For Input As #1 ' Open file for input.
    Do While Not EOF(1) ' Loop until end of file.
        Input #1, MyString ' Read each line into a variable.
        MsgBox MyString
    Loop
    Close #1 ' Close file.
End Sub