Instrukcja While...Wend

Kiedy program napotka instrukcję While, sprawdza warunek. Jeśli warunek to False, program kontynuuje bezpośrednio po instrukcji Wend. Jeśli warunek ma wartość True, pętla jest wykonywana, dopóki program nie znajdzie Wend, a następnie przeskoczy z powrotem do instrukcji While. Jeśli warunek jest nadal True, pętla jest wykonywana ponownie.

W przeciwieństwie do instrukcji Do...Loop, nie można anulować pętli While...Wend za pomocą Exit. Nigdy nie wychodź z pętli While...Wend za pomocą GoTo, ponieważ może to spowodować błąd w czasie wykonywania.

Do...Loop jest bardziej elastyczny niż While...Wend.

    While Condition [statements] Wend

  Sub ExampleWhileWend
      Dim stext As String
      Dim iRun As Integer
      sText ="To jest krótki tekst"
      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,"Tekst zakodowany"
  End Sub