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