Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim BkString As String
BkString$ = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz !@#$%^&*()_-+={}[],.\|/<>l;':""?'"
If InStr( 1 , BkString$, Chr(KeyAscii)) >  0  Then KeyAscii =  0 
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim BkString As String
BkString$ = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz !@#$%^&*()_-+={}[],.\|/<>l;':""?'"
If InStr( 1 , BkString$, Chr(KeyAscii)) >  0  Then KeyAscii =  0 
End Sub

Private Sub Text1_Change()
Call Revision
End Sub

Private Sub Revision()
If CStr(Val(Text1.Text)) <> Text1.Text And Text1.Text <> "" Then
Text1.Text = ""
End If
End Sub

'' Можно также для запрета Popup меню поставить
Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
'' вариант 1
'If Button = vbRightButton Then
'Text1.Locked = True
'Else
'Text1.Locked = False
'End If

'' вариант 2
'If Button = vbRightButton Then
'PopupMenu mnuFile, 2
'End If
End Sub