Sub doUntilA()
    Dim zaehler As Integer
    zaehler = 1
    ' wird genau einmal ausgeführt
    Do
        Debug.Print zaehler
        zaehler = zaehler + 1
    Loop Until zaehler < 10
End Sub