Instructie While...Wend

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