Err Object

The Err object contains information about your run-time errors.
This object has global scope which means that it can be referenced/used from anywhere.
However the value/error information is only available inside the current procedure, when you leave that procedure the object is reset.
This object is automatically reset when execution moves to a different subroutine or function.
This object is automatically reset when any of the following statements are executed: "On Error", "Resume" or "Exit".

Err.Clear Method

The clear method can be used explicitly to reset the properties, which is equivalent to "Err.Number = 0".

Err.Clear 

This method only needs to be used in conjunction with "On Error Resume Next" when you are performing more than one error check inside the same subroutine.

Public Sub MultipleRuntimeErrors_Resume() 
Dim iInteger As Integer 
   On Error Resume Next 
   iInteger = 40000 

   If (Err.Number <> 0) Then 
      Debug.Print "Overflow" 
      Err.Clear 
   End If 

   Debug.Print 1 / 0 

   If (Err.Number <> 0) Then 
      Debug.Print "Division by Zero" 
      Err.Clear 
   End If 
End Sub 

Using "On Error Resume Next" is not recommended because there is a risk of catching the previously handled error.

Passing an ErrObject

It is possible to pass in an ErrObject into a subroutine.

Public Sub MySubroutine() 
   On Error GoTo ErrorHandler 
   Debug.Print 1 / 0 

ErrorHandler: 
   Call Error_Handle("MySubroutine", Err) 
End Sub 

Public Sub Error_Handle(ByVal sProcedureName As String, _ 
                        ByVal oErr As ErrObject) 

   Call MsgBox("Number: " & Err.Number & vbNewLine & _ 
               "Description: " & Err.Description & vbNewLine & _ 
               "Source: " & Err.Source) 
End Sub