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 vote198 views1 answer
Vb.net round to 2 decimal places
VBA
0 vote229 views1 answer
Vba multiple optional arguments
VBA
2 votes153 views2 answers
Vba exit loop
VBA
3 votes219 views1 answer
Vba double quote
VBA
1 vote207 views1 answer
Excel vba get column name from number
VBA
0 vote196 views1 answer
Le contrôle SpinButton (Toupie)
VBA
15 votes500 views2 answers
Xl vba dynamic string array
VBA
3 votes214 views1 answer
Excel vba export sheet as a csv without losing focus of my current workbook
VBA
0 vote206 views1 answer
Not allow form to be resized
VBA
3 votes242 views1 answer
Extract word in a text in excel
VBA