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