Vba nested 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

0 vote223 views1 answer
Test if form is open vb
VBA
0 vote243 views1 answer
Vba copy file
VBA
0 vote225 views1 answer
Excel vba existence of a file
VBA
0 vote187 views1 answer
Vba code to remove leading and trailing spaces
VBA
0 vote220 views1 answer
Vba like with wildcard
VBA
0 vote228 views1 answer
Vba boolean to string
VBA
0 vote256 views1 answer
Vba timestamp -- milliseconds
VBA
0 vote286 views1 answer
Vba excel do not recalculate before save
VBA
0 vote304 views1 answer
Excel vba add reference programmatically
VBA
0 vote239 views1 answer
Reset border color textbox vba
VBA