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

0 vote189 views1 answer
Add text to Shape VBA
VBA
0 vote164 views1 answer
Faire appel à la mise en forme conditionnelle vba excel
VBA
8 votes261 views1 answer
Excel vba determine number of elements in a 2D array
VBA
0 vote173 views1 answer
Vbscript remove spaces from string
VBA
0 vote154 views1 answer
How to self delete a vbscript file
VBA
0 vote194 views1 answer
Excel vba paste all to each sheet in workbook
VBA
2 votes229 views1 answer
Vba round number
VBA
1 vote167 views1 answer
Vba reverse string
VBA
0 vote178 views1 answer
Vba array dimensions
VBA
5 votes191 views1 answer
Excel vba tool to help with refactoring code
VBA