Example - EOF Function

1. ' Input Function Example

   ' This example uses the Input function to read 10 characters at a time from a ' file and display them in a MsgBox. This example assumes that TESTFILE is a 'text file with a few lines of 'sample data.

   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