InputBox

Posted by Paul Walton on January 24, 2001 12:14 PM

Is there an way to have multiple inputs per InputBox?

Posted by doug on January 24, 2001 1:07 PM

Couldn't you just use a form? Sorry to bother...but not knowning the circumstances it makes sense to me.

Posted by Celia on January 24, 2001 5:27 PM

Paul

Sub Input_Data()
Dim data As Variant, check As Integer
Do
repeat:
data = Application.InputBox("Do the necessary")
If data = False Then Exit Do
If data = "" Then check = MsgBox("No value was entered. Do you wish to quit?", vbYesNo)
If check = vbYes Then Exit Do
If check = vbNo Then GoTo repeat:
MsgBox "you entered " & data
Loop
End Sub

Celia