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, smyčka se provádí, dokud program nenarazí na Wend a poté skočí zpět na While. Je-li podmínka stále True, smyčka se spustí znovu.

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

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

Syntaxe:

While Podmínka [Příkaz] Wend

Příklad:

Sub ExampleWhileWend

Dim stext As String

Dim iRun As Integer

    sText ="Toto je krátký 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