Dim oDic Set oDic = CreateObject("Scripting.Dictionary") oDic.Add "US", "United States of America" oDic.Add "UK", "United Kingdom"