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. 

Note: Unicode text files opened with Input mode use character positions, not byte positions.

See Also            Seek.

Example            '#Language "WWB-COM"
Sub Main
    Open "XXX" For Input As #1
    Debug.Print Seek(1) ' 1
    Line Input #1, L$
    Debug.Print Seek(1)
   'Close #1
End Sub