Anweisung While…Wend

Wenn ein Programm auf eine Anweisung While stößt, testet es die Bedingung. Wenn die Bedingung False ist, wird das Programm direkt nach der Anweisung Wend fortgesetzt. Wenn die Bedingung True ist, wird die Schleife ausgeführt, bis das Programm Wend findet und springt dann zurück zur Anweisung While. Wenn die Bedingung immer noch True ist, wird die Schleife erneut ausgeführt.

Im Gegensatz zur Anweisung Do…Loop können Sie eine Schleife While…Wend nicht mit Exit abbrechen. Verlassen Sie niemals eine Schleife While…Wend mit GoTo, da dies zu einem Laufzeitfehler führen kann.

Ein Do…Loop ist flexibler als ein While…Wend.

While Condition [statements] Wend

Sub ExampleWhileWend
    Dim stext As String
    Dim iRun As Integer
    sText ="Dies ist ein kurzer 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 verschlüsselt"
End Sub