Validasi Angka Pada text di Visual Basic 6.0 dengan Event KeyPress

Private Sub txtJumlah_KeyPress(KeyAscii As Integer)
If KeyAscii <> 8 And KeyAscii <> 58 Then
 If (KeyAscii < 48) Or (KeyAscii > 57) Then
  KeyAscii = 0
  Beep
 End If
Else
 KeyAscii = KeyAscii
End If
End Sub