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

While условие
[инструкции]
Wend

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

Замечания
Если условие имеет значение True, выполняются все инструкции до инструкции Wend. Затем управление возвращается инструкции While и вновь проверяется условие. Если условие по-прежнему имеет значение True, процесс повторяется. Если оно не имеет значение True, выполнение возобновляется с инструкции, следующей за инструкцией Wend.
Циклы While...Wend могут иметь любую глубину вложенности. Каждая инструкция Wend соответствует предшествующей инструкции While.
нструкция Do...Loop обеспечивает более структурированный и гибкий способ организации циклов.

Пример
В данном примере инструкция While...Wend используется для увеличения переменной-счетчика. Инструкции в цикле выполняются до тех пор, пока указанное условие не True.

Dim Counter
Counter = 0			' Инициализирует переменную.
While Counter < 20			' Анализирует значение счетчика.
	Counter = Counter + 1	' Увеличивает счетчик.
Wend				' Завершает цикл While,
				' если Counter > 19.
Debug.Print Counter		' Выводит 20 в окно отладки.