H
Harald Staff
Sub WaitForInput()
Dim S As String
If MsgBox("Are you a user ?", vbYesNo + vbQuestion) = _
vbNo Then Exit Sub
S = InputBox("Dear mr User, please give me some input:", _
"Waiting for user input")
MsgBox "I really appreciate your input, mr User.", _
vbExclamation
End Sub
HTH. Best wishes Harald
Dim S As String
If MsgBox("Are you a user ?", vbYesNo + vbQuestion) = _
vbNo Then Exit Sub
S = InputBox("Dear mr User, please give me some input:", _
"Waiting for user input")
MsgBox "I really appreciate your input, mr User.", _
vbExclamation
End Sub
HTH. Best wishes Harald