'   Ch. 10 Hands-On Programming Exercise #3 -
'
'     Write a program that simply stores the
'     user's name on the first
'     line of a sequential access file.
'     Use an InputBox to obtain the user's
'     name. (See pp. 435 & 436 to learn how
'     to use the InputBox Function.)

Option Explicit

Private Sub Form_Load()
    Dim strUserName As String
    strUserName = InputBox("Enter your name: ")
    Open "C:\Temp\HandOn3.txt" For Output As #1
    Print #1, strUserName
    Close #1
End Sub