sub txt_keypress(keyascii as integer)
If Not (KeyAscii > 47 And KeyAscii < 58) Or KeyAscii = 8 ) Then KeyAscii = 0
end sub