warteschlange02:
 
 
     If Doerror Then
        On Error GoTo OnError
     End If
 
    On Error GoTo warteschlange01
    ***************************************
 
 
 
warteschlange01:
#####################
goto warteschlange02