Příkaz While...Wend

Když program narazí na příkaz While, ověří podmínku. Je-li podmínka False, program pokračuje přímo příkazem následujícím za příkazem Wend. Je-li podmínka True, provádí se smyčka, dokud program nenarazí na Wend a poté přejde zpět na příkaz While. Smyčka se spouští stále znovu, dokud je podmínka True.

Na rozdíl od příkazu Do...Loop není možné smyčku While...Wend přerušit pomocí příkazu Exit. Nikdy neukončujte smyčku While...Wend příkazem GoTo. Pokus o takovou akci způsobí běhovou chybu.

Smyčka Do...Loop je flexibilnější než While...Wend.

While Condition [statements] Wend

Sub ExampleWhileWend
    Dim stext As String
    Dim iRun As Integer
    sText ="Toto je text"
    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,"Text encoded"
End Sub