While...Wend-udtryk
Når et program møder en While-sætning, tester det betingelsen. Hvis betingelsen er falsk, fortsætter programmet med sætningen lige efter Wend. Hvis betingelsen er sand, udføres løkken indtil programmet finder Wend, og programudførelsen hopper derefter tilbage til While-sætningen. Hvis betingelsen stadig er sand, udføres løkken igen.
Ulig sætningen Do...Loop, kan du ikke annuller en While...Wend løkke med Exit. Afslut aldrig en While...Wend løkke med GoTo, siden dette kan forårsage en kørselsfejl.
En Do...Loop er mere fleksibel end en While...Wend.
Syntaks:
While Condition [Statement] Wend
Eksempel:
Sub ExampleWhileWend
Dim sText As String
Dim iRun As Integer
sText ="Dette er en kort tekst"
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,"Tekst indkodet"
End Sub