Оператор 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