Example - EOF Function

' Input Function Example
' This example uses the Input function to read 10 characters at a time from a 
' file and display them in a MsgBox. This example assumes that testfile.txt is a 
' text file with a few lines of sample data.
Sub Main()
    Dim PrevDir As String
    Open "D:\Temp\testfile.txt" For Input As #1 ' Open file.
    Do While Not EOF(1) ' Loop until end of file.
        MyStr = Input(10, #1) ' Get ten characters.
        MsgBox MyStr
    Loop
    Close #1 ' Close file.
End Sub