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