First, you'll have to put a number on each line of code.
An then, in your error handling, you can access the error line by the
Erl property.
Like:

  Sub Test()
  On Error GoTo errHandler
     Dim a
1    a = 1
2    MsgBox a / 0
3 Exit Sub
4 errHandler:
5      MsgBox Erl
  End Sub

HTH
Patrice Merineau