Hier ein Tipp, wie Sie alle m�glichen Fehlernummern und deren Texte
     in einer Listbox betrachten k�nnen:

ERFORDERLICHE OBJEKTE

1 Listbox (List1)

 FORM-CODE
   Private Sub Form_Load()
      For x = 1 To 100
        f = x & ": " & Error(x)
         List1.AddItem f
      Next x
   End Sub