Ayuda para manejador de errores

[RoyMalcolm]

GRACIAS PKJ ME RESULTO BASTANTE PERO AHORA OK EN EL PRIMER CODIGO Ç

Private Sub Text1_KeyPress(KeyAscii As Integer)
If UCase$(Chr(KeyAscii)) <> LCase$(Chr(KeyAscii)) Then
KeyAscii = 0
MsgBox "No se admiten letras"
End If
End Sub

NO ME DEJA INGRESAR LETRAS PERO SI ESTOS CARACTERES (/*-@##) COMO HAGO PARA QUE SOLO ACEPTE (0123456789.)EN EL SEGUNDO CODIGO

Private Sub Text1_KeyPress(KeyAscii As Integer)
If InStr(1, "0123456789-+*/", Chr(KeyAscii)) = 0 Then
KeyAscii = 0
MsgBox "Carácter no permitido"
End If
End Sub
ENE STE LO HACE BN PERO CUANDO NO ME DEJA BORRAR EL TEXTBOX , TECLEO BORRAR Y LO TOMA COM SI FUERA UNA LETRA