Example:

1. Sub Main

   1. Open "TESTFILE" For Input As #1' Open file for reading.

      For i = 1 To 24 Step 3' Loop until end of file.

      1. Seek #1, i' Seek to byte position

         MyChar = Input(1, #1)' Read next character of data.

         Print MyChar'Print character of data

      Next i

      Close #1' Close file.

   End Sub