Example
set oDic = CreateObject("Scripting.Dictionary")
oDic.add "USA", "United States of America"
oDic.add "UK", "United Kingdom"
oDic.add "CAN", "Canada"
For Each obj in oDic.keys
Msgbox "Key: " & obj & " Value: " & oDic(obj)
Next
Set oDic = Nothing
