In diesem Beispiel werden die Eigenschaften des Err-Objekts zum Erstellen eines Dialogfeldes mit einer Fehlermeldung verwendet. Wenn Sie zuerst die Clear-Methode verwenden, wenn Sie einen Visual Basic-Fehler mit der Raise-Methode auslösen, ist zu beachten, daß die Eigenschaften des Err-Objekts die Standardeinstellungen von Visual Basic annehmen.
Dim Mldg ' Bei Auftreten eines Fehlers Fehlermeldung erstellen On Error Resume Next ' Fehlerbehandlung zurückstellen. Err.Clear Err.Raise 6 ' Überlauffehler" auslösen. ' Auf Fehler überprüfen, dann Meldung anzeigen. If Err.Number <> 0 Then Mldg = "Fehler # " & Str(Err.Number) & " wurde ausgelöst von " _ & Err.Source & Chr(13) & Err.Description MsgBox Mldg, , "Fehler", Err.Helpfile, Err.HelpContext End If