Cyklus "Do - Loop ... While"
' zde dochází k testování podmínky až po 1. provedení příkazu
Do
' zde napíšeme kod, který se má spustit ( nebo více kodu )
Loop While ' zde napíšu podmínku
'------------------------------------
Dim cislo As Integer
cislo = 1
Do
Worksheets("List1").Cells(cislo,1).value = cislo * 2
cislo = cislo + 1
Loop While cislo < 20
' nejprve jsou vykonány příkazy a až poté vyhodnocena podm. Je-li podmínka pravdivá, cyklus se dostává do dalšího průchodu