Оператор While...Wend

Когато изпълнението на програмата стигне до оператор While, условието се проверява. Ако има стойност False, изпълнението продължава директно след оператора Wend. Ако условието има стойност True, цикълът се изпълнява до Wend, след което управлението се връща на оператора While. Ако условието още е True, цикълът се изпълнява отново.

За разлика от оператора Do…Loop, цикълът While…Wend не може да бъде прекъснат с Exit. Никога не прекъсвайте цикъл While…Wend с GoTo, тъй като това може да предизвика грешка по време на изпълнение.

Циклите Do…Loop са по-гъвкави от While…Wend.

While Condition [statements] 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