VB Forum / General / July 2004

Step through this.

Public Sub TryMe()
 
 On Error GoTo MyError
 
 MsgBox 4 / 0

 Exit Sub

MyError:

 MsgBox Err.Description
 Resume

End Sub

Well... my "trick" (probably learned it here) works only inside the IDE
but it's great for finding the line that raised the error.
'=============
Private Sub Form_Load()
   Const ErrorLocation = "Form1:Form_Load"
   On Error GoTo ErrorTrap
'==============================================================
   Dim a As Integer
   Dim b As Integer
   Dim c As Integer

   b = 12
   c = b / a 'div by zero error

'==============================================================
Terminate:
   'clean up code here
   Exit Sub

ErrorTrap:
   MsgBox "Error " & Err.Number & vbCrLf & Err.Description _
      , vbCritical, ErrorLocation

   Debug.Assert False 'Stops here in the IDE

   'Compiled code will run this and get out of the procedure
   Resume Terminate

   'When VB stops on the Debug.Assert statement,
   'Select the 'Resume' line below, hit Ctrl-F9 then F8
   'VB'll jump directly to the line that raised the error
   'This line will never run in compiled code (no way to get here)
   Resume
End Sub
'=============

Note that you can add the Resume line at runtime if the file's not set
to 'Read-Only'. I have an add-in (CodeSmart) that adds all of the error
handling stuff with a single Ctrl-Keystroke (including the ErrorLocation
constant)