Only allow numbers in textboxes

This will stop letters being put in a textbox named text1
private sub text1_keypress(keyascii as integer)
select case keyascil
case is < 42
case 48 To 57
case else
keyascil = 0
end select
end sub