Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim s As String
s = UCase("0123456789") & Chr(8) & Chr(9) & Chr(10) & Chr(13)
If InStr(s, UCase(Chr(KeyAscii))) <= 0 Then KeyAscii = 0
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim s As String
s = UCase("0123456789") & Chr(8)
If InStr(s, UCase(Chr(KeyAscii))) <= 0 Then KeyAscii = 0
End Sub