Saber en que SubRutina ocurrió un error

[RadicalEd]

Iniciado por RsOfT

Tengo una duda.
Me gustaría saber en que subrutina se ha generado un error. Me explico, con el objeto Err puedo saber la descripción del error y el número del error, pero no se que fue en la subrutina command1_click.

¿Cómo podría saber este dato?

Utiliza la función Erl.

Código:

Private Sub Command1()
On Error GoTo Errores
Dim A As Long, B As Long
1   A = 10
2   B = 0
3   MsgBox A / B
Exit Sub
Errores:
   MsgBox Err.Description & " Linea de error: " & Erl() 'La función Erl() se encarga de esto.
End Sub

En la siguiente rutina seguirias con 4, 5, 6 y asi lo que funciona es la funcion Erl la que te manda la linea de error.