bedingung = erfüllt
  fehlerflag = False
 
  Do Until (bedingung <> erfüllt) Or fehlerflag
    '...
    Do
      '...
      fehlerflag = (fehler = aufgetreten)
 
      'If fehler = aufgetreten Then
      '  fehlerflag = True
      '  Exit Do                                     'innere Schleife beenden
      'End If
      '...
 
    Loop Until (bedingung <> erfüllt) Or fehlerflag
    '...
  Loop
 
  If Not fehlerflag Then
    ' will
 
    '...
  End If
 
'ende:

Gruß
Dirk

--
?Get it right the first time