الدالة Loc

Dim MyLocation, MyLine
' Open file just created.
Open "TESTFILE" For Binary As #1
' Loop until end of file.
Do While MyLocation < LOF(1)    
    ' Read character into variable.
    MyLine = MyLine & Input(1, #1)    
    ' Get current position within file.
    MyLocation = Loc(1)    
    ' Print to the Immediate window.
    Debug.Print MyLine; Tab; MyLocation
Loop
Close #1    ' Close file.