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

8 votes427 views1 answer
Excel vba make word
VBA
0 vote313 views2 answers
Excel vba protect cells with formula
VBA
0 vote306 views1 answer
Convert Seconds to HH:MM:SS in VB.Net
VBA
0 vote333 views1 answer
Test if form is open vb
VBA
0 vote313 views1 answer
Internet explorer reference vba
VBA
0 vote321 views1 answer
Excel vba textbox forecolor disabled
VBA
0 vote313 views1 answer
Excel vba delete folder
VBA
0 vote332 views1 answer
VBA OR vb6 find OR replace string from the end
VBA
2 votes315 views2 answers
Vba code to remove duplicates from a column
VBA
5 votes360 views1 answer
Excel vba first byte from INTEGER
VBA