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

1 vote170 views1 answer
Add rows to datagridview vb.net
VBA
0 vote118 views1 answer
Vba code to remove leading and trailing spaces
VBA
0 vote166 views1 answer
VBA Loop to range
VBA
0 vote167 views1 answer
Excel run macro every 5 minutes
VBA
-1 vote156 views1 answer
VBA check if a cell contains a letter or string
VBA
0 vote169 views1 answer
Vba simple quote
VBA
0 vote155 views1 answer
Vba get relative cell address
VBA
0 vote165 views1 answer
Vba character ascii code
VBA
2 votes153 views1 answer
Vba split string
VBA
0 vote210 views2 answers
VB
VBA