EOF Function

Syntax:
EOF(StreamNum)
Group: File
Description:
Return True if StreamNum is at the end of the file.
Parameter Description

StreamNum Streams 1 through 255 are private to each macro. Streams 256 through 511 are shared by all macros.
Example:

Sub Main
Open "XXX" For Input As #1
While Not EOF(1)
Line Input #1,L$
Debug.Print L$
Wend
Close #1
End Sub