Sub TxtBox_Keypress(keyascii as integer) esto es, el evento keypress de tu textbox select case keyascii case 8,13,27,48 to 57,65 to 90,97 to 122 case else keyascii=0 end select end sub