Option Explicit
Dim cIrgendwas As New Collection
 
Private Sub Form_Load()
 
    'Fügt drei Einträge hinzu
    cIrgendwas.Add "A"
    cIrgendwas.Add "B"
    cIrgendwas.Add "Z"
 
    'Löscht den zweiten Eintrag, also "B"
    cIrgendwas.Remove 2
 
    'Gibt den ersten Eintrag "A" aus
    Debug.Print cIrgendwas(1)
End Sub