Dim a As Integer
Dim b As Integer
Private Sub Form_Load()
On Error GoTo error1
a = InputBox("Insertar numero 1", "Numero 1")
On Error GoTo error2
b = InputBox("Insertar numero 2", "Numero 2")
error1:
error1msg = MsgBox("Ingrese caracteres numericos", vbCritical + vbOKOnly, "NUMERO 1")
Resume
error2:
error2msg = MsgBox("Ingrese caracteres numericos", vbCritical + vbOKOnly, "NUMERO 2")
Resume
Exit Sub
resultado = a + b
msgresultado = MsgBox(resultado, vbYesNo, "Resultado:")
If msgresultado = yes Then
End
Else:
End If
End Sub
No entiendo que hise mal, Soy novato en esto ...
Me dan una mano?
