Checking a string is a number between a range

[Pyramus]

I just want to check a value entered into a text box is a number (no letters in it) and is between 0 and 200. Any clues?

 

[RalphBrown]

Try:

If IsNumeric(Mytextbox.text) and val(Mytextbox.text) >= 0 and val(Mytextbox.text) <= 0 then

Ralph

 

[cdukes]

try something like the following:

Function CheckValue as boolean
dim retval as boolean

retval = false
if IsNumeric(txtBox.text) then
iF cint(txtbox.text) > 0 and cint(txtBox.text) < 200 then
retval = true
end if
end if

CheckValue = RetVal
end function

Hope this helps,

Chris Dukes