Sub NestedDictionary() Dim d1, d2 Set d1 = CreateObject("Scripting.Dictionary") Set d2 = CreateObject("Scripting.Dictionary") d1.Add "BPH", "Hello" d2.Add "Shaun", d1 Debug.Print d2("Shaun").Item("BPH") End Sub