LOF Function

Syntax
LOF([#]StreamNum)
Group
File
Description
Return StreamNum file length (in bytes).
Sandbox
Sandbox mode blocks this function.
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
    L = LOF(1)
    Close #1
    Debug.Print L
End Sub