sub textbox1.keypress (byval keyascii as integer)
 
''dieses Ereignis liefert dir den Ascii Wert der Taste, die gerade gedrückt _
  wurde
''musst du einfach nur prüfen, ob dieser Wert außerhalb des "Wert-Bereichs" für _
Zahlen
''liegt. Das ist von 48 bis 57. Also:
 
if keyascii < 48 or keyascii > 57 then
''Sollte der Wert also außerhalb dieses Bereichs liegen, änder ihn einfach ab:
keyascii = 0    ''der ascii-Wert 0 ist ein lerres Zeichen, also wird auch _
  nichts in die 
                         ''Textbox eingetragen
 
end sub