Module
Inhoud
Index 🔎︎

# While...Wend-instructie

Als het programma een While-instructie tegenkomt test het de voorwaarde. Als de voorwaarde Onwaar is, vervolgt het programma direct met de volgende Wend-instructie. Als de voorwaarde Waar is, wordt de lus uitgevoerd totdat het programma Wend vindt en springt dan terug naar de While-instructie. Als de voorwaarde nog steeds Waar is, zal de lus nogmaals worden uitgevoerd.

In tegenstelling tot de Do...Loop-instructie kan een While...Wend-lus niet geannuleerd worden met Exit. U moet nooit een While...Wend-lus met GoTo beëindigen aangezien dit een runtime-fout kan veroorzaken.

Een Do...Loop is meer flexibel dan een While...Wend.

## Syntaxis:

    While Voorwaarde [Instructie] Wend

## Voorbeeld:

    Sub VoorbeeldWhileWend

    Dim sTekst As String

    Dim iDoe As Integer

        sTekst ="Dit is een korte tekst"

        iDoe = 1

        While iDoe < Len(sTekst)

            If Mid(sTekst,iDoe,1)<> " " Then Mid(sTekst ,iDoe, 1, Chr(1 + Asc(Mid(sTekst,iDoe,1)))

            iDoe = iDoe + 1

        Wend

        MsgBox sTekst,0,"Gecodeerde Tekst"

    End Sub