On Error Goto

[seba123neo]

Hola,proba esto:

Código:

Dim a As Integer
Dim b As Integer

Private Sub Form_Load()
On Error GoTo error1
a = InputBox("Insertar numero 1", "Numero 1")
b = InputBox("Insertar numero 2", "Numero 2")
resultado = a + b
msgresultado = MsgBox(resultado, vbYesNo, "Resultado:")
If msgresultado = vbYes Then End
Exit Sub
error1:
MsgBox "error ingresaste una letra seguro....o no ingresaste nada", vbCritical
End Sub

saludos.