Hola. Hay una cosa que no entiendo en este exemplo de programa que hice. Mi idea es de atrapar el error con ON ERROR, pero cuando lo corro me cancela diciendo :
RUN TIME ERROR '13'
Type Mismatch
Porque ? si yo puse dentro de la rutina err: un msgbox para mostrar el error y salir correctamente.... ademas no sale el mensaje del MSGBOX....
Alguien podria ayudarme...
Gracias...
Programa
==========
Private Sub Form_Load()
On Error GoTo err
Call divisionporcero
On Error GoTo 0
err:
MsgBox err.Number, err.Description
End Sub
Sub divisionporcero()
Dim b As Integer
a =1
b = a / 0
End Sub
