Запрет на ввод цифр в TextBox

Private Sub Text1_KeyPress(KeyAscii As Integer)
        If KeyAscii >= 48 And KeyAscii <= 57 Then KeyAscii = 0
End Sub

    for i%=1 to len(Text1.Text)
        if isNumeric(mid$(Text1.text,i%,1) then 
           '::: сделай, что нужно
           Exit Sub
        end if
    Next i%

Dim KeyPressDB As Boolean
 
Private Sub Text1_Change()
    Dim SaveTextDS As String
    Dim SaveTextDL As Long
    Dim ForDL As Long
    
    SaveTextDS = Text1.Text
    SaveTextDL = Len(SaveTextDS)
    
    If KeyPressDB = False Then
        For ForDL = 0 To 9
            If (InStr(1, SaveTextDS, CStr(ForDL)) > 0) Then SaveTextDS = Replace(SaveTextDS, CStr(ForDL), "")
        Next
       If Not (Len(SaveTextDS) = SaveTextDL) Then
            Text1.Text = SaveTextDS
       End If
        KeyPressDB = False
    End If
 
End Sub
 
Private Sub Text1_KeyPress(KeyAscii As Integer)
    If (KeyAscii >= 48 And KeyAscii <= 57) Then
        KeyAscii = 0
        KeyPressDB = True
    Else
        If (KeyAscii = 1 Or KeyAscii = 3 Or KeyAscii = 8 Or KeyAscii = 22 Or KeyAscii = 24 Or KeyAscii = 26) Then
            KeyPressDB = False
        Else
            KeyPressDB = True
        End If
    End If
End Sub