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