Samo numericka vrijednost u textbox u VB6? Kako najlakse?

Code:


Private Sub Text1_KeyPress(KeyAscii As Integer)

Select Case KeyAscii
  Case vbKey0 To vbKey9
  Case vbKeyBack, vbKeyClear, vbKeyDelete, 44
  Case vbKeyLeft, vbKeyRight, vbKeyUp, vbKeyDown, vbKeyTab
  Case Else
  KeyAscii = 0
   Beep
End Select