Duda text box!

Hola, aquí molestando de nuevo, ya tengo el textbox que me captura los datos y los busca, pero no me los valida como yo quiero, pues supuestamente solo deben admitir números, pero ingreso un numero y después una letra y lo acepta, cosa que en teoría no debería de hacer. Te anexo el código que estoy utilizando:
Private Sub TextBox1_Change()
If KeyAscii = 13 Then 'valida que se escriban exclusivamente numeros y ningun otro caracter
KeyAscii = 0
otro_objeto.SetFocus
Else
If (UCase(Chr(KeyAscii)) Like "[!0-9]") Then
KeyAscii = 0
End If
If Len(TextBox1.Value) > 4 Then ' valida que no se escriban cadenas de numeros no mayores a 4
MsgBox "SOLO 4 DIGITOS", , "ERROR!!!!!"
TextBox1 = Empty
End If
End If
End Sub