Istruzione While...Wend

Quando un programma incontra un'istruzione While, valuta la condizione. Se questa è False (falsa), il programma passa direttamente all'istruzione dopo Wend. Se la condizione è True (vera), il ciclo viene eseguito fino a che il programma non incontra l'istruzione Wend, quindi torna nuovamente a While. Se la condizione è ancora True, il ciclo viene eseguito di nuovo.

A differenza dell'istruzione Do...Loop, non è possibile interrompere un ciclo While...Wend con Exit. Non uscite mai da un ciclo While...Wend con GoTo, in quanto ciò potrebbe causare un errore di esecuzione (runtime).

L'uso di Do...Loop è più flessibile di un'istruzione While...Wend.

While Condition [statements] Wend

Sub ExampleWhileWend
    Dim stext As String
    Dim iRun As Integer
    sTesto ="Questo è un breve testo"
    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 sTesto,0,"Testo codificato"
End Sub