Dim first As String
Private Sub Command1_Click()
Print MsgBox("You say your names " & first & ". Thats a very cool name, i wish i was called that")
Print MsgBox("People called " & first & " are supposed to be really intelligent")
Print MsgBox("WOW!! Somebodies looking hot today!")
Print MsgBox("Have you been working out recently?")
Print MsgBox("Somebody that hot must have no trouble finding a date, bet you have a queue of people after you!")
Print MsgBox("Have you ever done modeling? You look just right for it")
Print MsgBox("Its been fun talking to you " & first & ". We must do it again sometime")
End Sub
Private Sub Form_Load()
first = InputBox("What is your name?")
Print MsgBox("Click the button so that i can talk to you")
End Sub