Ayuda para manejador de errores

[pkj]

No es control de errores. Es filtrar la entrada del teclado.
Siendo un textbox lo más fácil es usar el evento keypress.

Código vb:

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
 

Este código filtra las letras, pero permite otros caracteres.

Puedes simplificar decidiendo tú los únicos caracteres que quieres permitir.
Sería algo así:

Código vb:

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
 

Saludos