While...Wend Statement
Если программа встречает инструкцию While, она проверяет указанное условие. Если условие ложно, программа продолжается непосредственно после инструкции Wend. Если данное условие истинно, цикл выполняется до Wend, а затем возвращается к инструкции While. Если данное условие все еще истинно, цикл будет выполняться опять.
В отличие от инструкции Do...Loop, цикл While...Wend не может быть прерван командой Exit. Из цикла While...Wend нельзя выйти с помощью GoTo, поскольку это может вызвать ошибку времени выполнения.
Использование инструкции Do...Loop является более гибким, чем использование While...Wend.
Синтаксис
While Условие [Инструкция] Wend
Пример:
Sub ExampleWhileWend
Dim stext As String
Dim iRun As Integer
sText ="Это короткий текст"
iRun = 1
while iRun < Len(sText)
if Mid(sText,iRun,1 )<> " " then Mid( sText ,iRun, 1, Chr( 1 + Asc( Mid(sText,iRun,1 )) )
iRun = iRun + 1
Wend
MsgBox sText,0,"Текст закодирован"
End Sub