Sub Main On Error Resume Next CallByName Err, "Raise", vbMethod, 1 Debug.Print CallByName(Err, "Number", vbGet) ' 1End Sub