Instructie While...Wend

Wanneer een programma een instructie While tegenkomt, test het de voorwaarde. Als de voorwaarde False is, gaat het programma direct verder na de instructie Wend. Als de voorwaarde True is, wordt de lus uitgevoerd totdat het programma Wend vindt en dan terugspringt naar de instructie While. Als de voorwaarde nog steeds True is, wordt de lus opnieuw uitgevoerd.

Anders dan bij de instructie Do...Loop, kunt u een While...Wend niet beëindigen met Exit. Beëindig nooit een While...Wend met GoTo, omdat dit een run-time fout kan veroorzaken.

Een Do...Loop is flexibeler dan een While...Wend.

While Condition [statements] Wend

Sub ExampleWhileWend
    Dim stext As String
    Dim iRun As Integer
    sText ="Dit is een korte 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 sTekst,0,"Gecodeerde Tekst"
End Sub