In diesem Beispiel wird die While...Wend-Anweisung verwendet, um eine Zählervariable hochzuzählen. Die Anweisungen in der Schleife werden so lange ausgeführt, bis die Bedingung erfüllt ist (also den Wert True annimmt).
Dim Zähler Zähler = 0 ' Variable initialisieren. While Zähler < 20 ' Zähler überprüfen. Zähler = Zähler + 1 ' Zähler hochzählen. Wend ' While-Schleife beenden, wenn ' Zähler > 19. Debug.Print Zähler ' 20 direkt im Fenster ausgeben.