Sub Main ()
    Open "TESTFILE" For Output As #1                   ' Open to write file.
    userData1$ = InputBox ("Enter your own text here")
    userData2$ = InputBox ("Enter more of your own text here")
    Write #1, "This is a test of the Write # statement."
    Write #1,userData1$, userData2
    Close #1
    Open "TESTFILE" for Input As #2                    ' Open to read file.

    Do While Not EOF(2)
        Line Input #2, FileData                        ' Read a line of data.
        Print FileData                                 ' Construct message.
    Loop

    Close #2 ' Close all open files.
    MsgBox "Testing Print Statement"                   ' Display message.
    Kill "TESTFILE"                                    ' Remove file from disk.
End Sub