Instead of trapping an Error by its value (If err.number=429 then...) I would prefer to use a VB defined Constant Name.
I can't seem to find a way to locate them, if they exist.
As far as I know, there only a few constants defined for error numbers. If you need such a file, you could build one using this code:
Dim i As Integer
For i = 1 To 9999
If Error$(i) <> "Application-defined or object-defined error" Then
Debug.Print "Const " & UCase(Replace(Left(Error$(i), 40), " ", "_")) & " = " & i
This will actually create constants that are named basically the same as the error messages. You can easily modify this code to write to a file, as well. Any spaces in the message will be converted to underscores, and the length of the constant will be limited to 40 characters. If you don't have the Replace function, you'll have to do that manuallycheck the archive for code that works the same as the VB 6 Replace function.