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