Sub AccessCollection()
Dim colNames As Collection
Set colNames = New Collection
colNames.Add "A", "A"
colNames.Add "D", "Dan"
colNames.Add "Al", "Alexis"
colNames.Add "B", "Brendan"
colNames.Add "S", "Sonia"
colNames.Add "Su", "Sue"
Debug.Print colNames(1)
Debug.Print colNames.Item(1)
End Sub