If I accidently input a character in my input box I get a type mismatch Because I am trying to add leading zeros. Is there any way to force the user to enter a numeric value?
Dim intRCCount1, objRS1, result
Do
intRCCount1 = 0
PO = InputBox(Message, Title, "00", 5000, 4000)
if PO = "" then 'A
wscript.quit(9)
else
PO = ((right(PO + 100000000,8)))
strSQL11 = "Select ord_no from POORDHDR_SQL where ord_no='" & PO & "'"
Call GetPORecordSetCount(strSQL11, intRCCount1, objRS1)
if intRCCount1 = 0 then 'B
msgbox "PO Not on File",,"Quest IV"
else
Exit Do
end If 'B
end if 'A
Loop