Как сделать такой TextBox, куда можно было бы вводить только определенные символы?

Private Sub Text1_Change()
       Dim Response
 
       If (IsNumeric(Text1.Text) = False) Then
          Response = MsgBox("Illegal Character", vbOkOnly)
          Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1)
      End If
End Sub

Form1.KeyPreview = True
Private Sub Form1_KeyPress(KeyAscii as Integer)
        Select Case KeyAscii
             Case 'A': Text1.Text = Left(Text1.Text, Len(Text1.Text)-1)
...
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii <> AscW('0') And KeyAscii <> AscW('1') And KeyAscii <> AscW('2') And KeyAscii <> AscW('3') And KeyAscii <> AscW('4') And KeyAscii <> AscW('5') And KeyAscii <> AscW('6') And KeyAscii <> AscW('7') And KeyAscii <> AscW('8') And KeyAscii <> AscW('9') And _
        KeyAscii <> 8 Then ''Del и BackSpase
    Text1.Locked = True
End If
End Sub
 
Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
Text1.Locked = False
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii <> AscW('0') And KeyAscii <> AscW('1') And KeyAscii <> AscW('2') And KeyAscii <> AscW('3') And KeyAscii <> AscW('4') And KeyAscii <> AscW('5') And KeyAscii <> AscW('6') And KeyAscii <> AscW('7') And KeyAscii <> AscW('8') And KeyAscii <> AscW('9') And _
        KeyAscii <> 8 Then ''Del и BackSpase
    Text1.Locked = True
End If
End Sub
 
Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
Text1.Locked = False
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii <> AscW('0') And KeyAscii <> AscW('1') And KeyAscii <> AscW('2') And KeyAscii <> AscW('3') And KeyAscii <> AscW('4') And KeyAscii <> AscW('5') And KeyAscii <> AscW('6') And KeyAscii <> AscW('7') And KeyAscii <> AscW('8') And KeyAscii <> AscW('9') And _
        KeyAscii <> 8 Then ''Del и BackSpase
    KeyAscii = 0
End If

Public Function KeyFilter(i As Integer, s As String) As Integer
 
Select Case i
 Case 48 To 57   '' Числа от 0 до 9
   KeyFilter = i
 Case 8          '' Клавиша Backspace
   KeyFilter = i
 Case 44         '' Клавиша запятой с проверкой ее предыдущего ввода
   If InStr(1, s, ',') = 0 Then
     KeyFilter = i
   Else
     Beep
     KeyFilter = 0
   End If
 Case 9
   KeyFilter = i
 Case Else
   Beep
   KeyFilter = 0
End Select
End Function
 
Private Sub Text1_KeyPress(KeyAscii As Integer)
    KeyAscii = KeyFilter(KeyAscii, Text1.Text)
End Sub