There seems to be a problem with the following code from P. 222
Code:
Error_Handler
On Error Resume Next
DisplayUnexpectedError Err.Number, Err.Description
my DisplayUnexpectedError sub was returning "0" for ErrorNumber and " " for ErrorDescription
On MSDN I found the following information
"The properties of the Err object are reset to zero or zero-length strings ("") after an Exit Sub, Exit Function, Exit Property, or Resume Next statement in an error-handling routine. Using any form of the Resume statement outside of an error-handling routine will not reset the properties of the Err object. You can use the Clear method to explicitly reset Err."
When I removed the line "On Error Resume Next" the code worked correctly.