Loc Function

Syntax
Loc([#]StreamNum)
Group
File
Description
Return StreamNum file position. For Random mode files this is the current record number minus one. For Binary mode files it is the current byte position minus one. Otherwise, it is the current byte position minus one divided by 128. The first position in the file is 0.
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 = Loc(#1)
    Close #1
    Debug.Print L ' 0
End Sub