Sub doWhileExitFor()
    Dim zaehler As Integer
    zaehler = 1
    'wird ausgeführt, weil zaehler beim Start < 10 ist
    Do While zaehler < 10
        If zaehler = 8 Then
            MsgBox "Zaehler= " & zaehler & vbCrLf & "Schleife wird abgebrochen"
            Exit Do
        End If

        Debug.Print zaehler
        zaehler = zaehler + 1
    Loop
End Sub