Private Sub Text1_Change()
Dim i
Dim j
Dim col As New Collection
For j = 1 To Len(Text1.Text)
For i = 1 To Len(Text1.Text)
    If Asc(Mid(Text1.Text, i, 1)) >= 47 And Asc(Mid(Text1.Text, i, 1)) < 58 Then
        Text1.Text = Mid(Text1.Text, 1, i - 1) & Mid(Text1.Text, i + 1)
        Exit For
    End If
Next i
Next j
Text1.SelStart = Len(Text1.Text)
End Sub

http://project-05.tk