I have a VB module that has the following function which is referenced in the ON ERROR GOTO statement:

TRAP:
Screen.MousePointer = vbNormal
MsgBox "An error has occured in ProcessTables: " & Err.Description & " (" & CStr(Err.Number) & Err.Source & ")", vbCritical
RaiseEvent Status("Errors occured during table processing.")
ProcessTables = False
Exit Function

How do I add the line number of the code which triggered the error event to this statement?

Thanks,

Ben Holton