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:
Sub Main 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 End If Next iEnd Sub
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 manually?check the archive for code that works the same as the VB 6 Replace function.