Die Schleife benötigt keine Laufvariable. Die Schleife wird solange durchlaufen, solange die Fortsetzungsbedingung erfüllt ist. Die Bedingung steht am Beginn der Schleife, daher wird die Schleife unter Umständen nie durchlaufen.
Die Schleife kann mit dem Befehl Exit Do vorzeitig abgebrochen werden.
Die Schleife kann mit dem Befehl Continue unmittelbar fortgesetzt werden.
Dim i As Long, k As Long
i := 0
Do While i < 100
k := k + 100
If k > 1000 Then
Exit Do
EndIf
i := i + 1
End Do