Help with code please

[Greg]

Hi I am just wondering how to change the code below. I have an input box ask
for a amount and it has to be between 0 - 8 how do i change the code to do
this. I need it to tell a message that is an amount that is too much and
reload the input box. Here is the code

Dim ALL1 As String
ALL1 = InputBox("HOW MANY PEGS DID " & N1.Caption & " GET IN THE DOUBLES?",
"ALL SECTION.", 0)

Thanks

Greg

 

[Guest]

Hi Greg

Try the below

Dim ALL1, Responce As String
Dim ValidSelection As Boolean

ValidSelection = False
While Not ValidSelection
ALL1 = InputBox("HOW MANY PEGS DID " & N1.Caption & " GET IN THE
DOUBLES?", "ALL SECTION.", 0)
If (Val(Trim$(ALL1)) >= 0) And (Val(Trim$(ALL1)) <= 8) Then
ValidSelection = True
Else
Responce = MsgBox("Value must be between 0 and 8", vbOKOnly)
End If
Wend