Sub doWhile()
    Dim zaehler As Integer
    zaehler = 1
    'wird ausgeführt, weil zaehler beim Start < 10 ist
    Do While zaehler < 10
        Debug.Print zaehler
        zaehler = zaehler + 1
    Loop
End Sub

Sub doUntil()
    Dim zaehler As Integer
    zaehler = 1
    ' wird nie ausgeführt, weil zaehler bereits < 10 ist
    Do Until zaehler < 10
        Debug.Print zaehler
        zaehler = zaehler + 1
    Loop
End Sub