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