On error goto Fehler exit sub ' oder functionFehler: msgbox "Err ist: " & Cstr(Err)
on Error goto Fehler exit sub ' oder functionif err=dieNummer then resume nextend if