In diesem Beispiel wird die Count-Eigenschaft des Collection-Objekts verwendet, um anzugeben, wie viele Durchläufe erforderlich sind, um alle Elemente der Auflistung Klassen1 zu entfernen. Wenn Auflistungen numerisch indiziert werden, ist die Basis standardmäßig 1. Da Auflistungen automatisch neu indiziert werden, wenn ein Löschvorgang durchgeführt wurde, wird durch den folgenden Code in jedem Durchlauf das erste Element entfernt.
Dim Num, Klassen1 For Num = 1 To Klassen1.Count ' Entfernen des Namens aus der Auflistung. Klassen1.Remove 1 ' Standardauflistung, numerische Indizes Next ' bei 1 beginnen.