Следующий код:

Dim States As New Collection

States.Add "California", "CA"

States.Add "Nevada", "NV"

MsgBox (States.Item("CA"))

Выведет на экран слово California.

Видно, что в данном синтаксисе идет вначале Value, а потом Key. Это неудобно, и чтобы Key был слева, можно воспользоваться таким синтаксисом:

States.Add Key:="CA", Item:="California"

States.Add Key:="NV", Item:="Nevada"