Vba find sub dictionary

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

Source: stackoverflow.com

Similar codes

2 votes114 views1 answer
Vba uppercase first letter of each word
VBA
1 vote128 views1 answer
Find and replace textbox
VBA
0 vote128 views1 answer
Xlbycolumns is not declared
VBA
18 votes253 views3 answers
Excel-vba make integer
VBA
0 vote98 views1 answer
How to self delete a vbscript file
VBA
1 vote119 views1 answer
Excel vba make cell visible
VBA
1 vote113 views1 answer
Excel format cell as kilowatts
VBA
0 vote115 views1 answer
Excel vba show developer tab
VBA
5 votes139 views1 answer
Excel-vba get integer high byte
VBA
0 vote129 views1 answer
Arq linux
VBA