Trapping User Inputs in a InputBox

[Joeb1]

I want to make sure that users only enter numbers in a input box. What is an easy way to do this? Or even if I have to look for a range of 1 to 50.

I tried an IF statement but I can't figure out how to set a range of numbers with the statement.

Thanks

 

[dpaulson]

This seems to work


Dim x As String
Do While IsNumeric(x) = False
x = InputBox("Enter Something&quot
Loop



David Paulson

 

[Joeb1]

Thanks,

I think I can get that to work.

 

[chiph]

Do you have to use an inputbox?

You can use a textbox, and validate the input in the keypress event:

[tt]
If KeyAscii < Asc(&quot;0&quot Or KeyAscii > Asc(&quot;9&quot Then
KeyAscii = 0
Exit Sub
End If
[/tt]

Chip H.