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