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