Sub AccessCollection()
Dim colNames As Collection
Set colNames = New Collection
colNames.Add "A", "A"
colNames.Add "D", "D"
colNames.Add "A2", "A2"
colNames.Add "B", "B"
colNames.Add "S", "S"
colNames.Add "S3", "S2"
Debug.Print colNames.Item(1)
End Sub