Example:

1. Sub Main

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

      Do While Not EOF(1)' Loop until end of file.

      1. MyStr = Input(10, #1)' Get ten characters.

         MsgBox MyStr

      Loop

      Close #1' Close file.

   End Sub