To do a better code for allowing only numbers ,


Code:
Select KeyAscii

Case ASC("0") to ASC("9")

Case Else

KeyAscii=0

End Select