Function LimitTextInput(source)Returnas
String 'put the next line in the Textbox_KeyPress event 'KeyAscii = LimitTextInput(KeyAscii) 'change Numbers with any other character Const Numbers$ = "0123456789." 'backspace =8 If source <> 8 Then If InStr(Numbers, Chr(source)) = 0 Then LimitTextInput = 0exit
Functionend
Ifend
If LimitTextInput = source End Function