Example:

  1. Sub Main()

    1. Dim FileLength

      Open "TESTFILE" For Input As #1

      FileLength = LOF(1)

      Print FileLength

      Close #1

    End Sub