Seek Function

Syntax:
Seek(StreamNum)
Group: File
Description:
Return StreamNum current position. For Random mode files this is the record number. The first record is 1. Otherwise, it is the byte position. The first byte is 1.
Parameter Description

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

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