validasi vb hanya input angka

Public Sub NumberValid(KeyAscii As Integer)

Const Number = "0123456789"

If KeyAscii <> 8 And KeyAscii <> 13 Then

   If InStr(Number, Chr(KeyAscii)) = 0 Then

      KeyAscii = 0

      Exit Sub

   End If

End If

End Sub