EOF Function

Syntax
EOF([#]StreamNum)
Group
File
Description
Return True if StreamNum is at the end of the file.
Parameters Description
StreamNum Streams 1 through 255 are private to each macro. Streams 256 through 511 are shared by all macros.

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