Dim Dict ‘Create an instance

Set Dict = CreateObject("Scripting.Dictionary")

Dict.Add "a", "Athens" ‘Add some keys and items

Dict.Add "b", "Belgrade"

Dict.Add "c", "Cairo"

Dict.Add "d", "Doncaster"

Dict.Add "e", "Eastwood"

key = InputBox("Enter a letter a - e")

MsgBox "Item selected: " & Dict.Item(key