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.Items
Msgbox obj
Next
Set oDic = Nothing
*Output:
United States of America
United Kingdom
Canada