Instrução While...Wend

Quando um programa encontra uma instrução While, verifica a condição. Se a condição for False, o programa continua diretamente a seguir à instrução Wend. Se a condição for True, o ciclo é executado até o programa encontrar Wend e, em seguida, salta de volta para a instrução While. Se a condição continuar a ser True, o ciclo é executado novamente.

Ao contrário da instrução Do...Loop, não é possível cancelar um ciclo While...Wend com Exit. Nunca saia de um ciclo While...Wend com GoTo, uma vez que isso pode causar um erro de tempo de execução.

Um Do...Loop é mais flexível do que um While...Wend.

Sintaxe:

Sintaxe do While


    While Condition [statements] Wend

Exemplo:


  Sub ExampleWhileWend
      Dim stext As String
      Dim iRun As Integer
      sText = "Este é um texto curto"
      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,"Texto codificado"
  End Sub

Instrução Do...Until ou Do...While

Instrução Exit