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