Повторяет выполнение набора инструкций, пока условие имеет значение True или пока оно не примет значение True.

Do [{While | Until} условие]
[инструкции]
[Exit Do]
[инструкции]
Loop

Do
[инструкции]
[Exit Do]
[инструкции]
Loop [{While | Until} условие]

Параметры
условие
Необязательный. Числовое выражение или строковое выражение, которое имеет значение True или False. Если условие имеет значение Null,то аргумент условие рассматривается как значение False. инструкции
Одна или несколько инструкций, выполнение которых повторяется, пока условие имеет значение True или пока оно не приобретет значение True.

Замечания
В любом месте управляющей структуры Do…Loop может быть размещено любое число инструкций Exit Do, обеспечивающих альтернативные возможности выхода из цикла Do…Loop. Часто используемая вместе с определением некоторого условия (например, If…Then), инструкция Exit Do передает управление инструкции, непосредственно следующей за инструкцией Loop.
Во вложенных циклах Do…Loop инструкция Exit Do передает управление циклу охватывающего уровня по отношению к циклу, в котором она вызывается.

Пример
В данном примере показано, как можно использовать инструкции Do...Loop. Внутренний цикл Do...Loop выполняется 10 раз, затем логической переменной присваивается значение False, после чего он преждевременно завершается с помощью инструкции Exit Do. Внешний цикл завершается немедленно после проверки значения логической переменной.

Dim Check, Counter
Check = True: Counter = 0	' Инициализирует переменные.
Do	' Внешний цикл.
	Do While Counter < 20	' Внутренний цикл.
		Counter = Counter + 1	' Увеличивает счетчик.
		If Counter = 10 Then	' Если условие истинно.
			Check = False	' Присваивает переменной
				' значение False.
			Exit Do	' Завершает внутренний цикл.
		End If
	Loop
Loop Until Check = False	' Немедленно завершает внешний цикл.