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 vote286 views2 answers
Excel vba copy paste after last row
VBA
3 votes263 views1 answer
Excel vba export sheet as a csv without losing focus of my current workbook
VBA
2 votes275 views1 answer
Excel vba check if string entirely numeric
VBA
0 vote282 views1 answer
Vba clear collection
VBA
5 votes316 views1 answer
Xlvba double quotes in string literal
VBA
0 vote280 views1 answer
Open file dialog in vb.net
VBA
0 vote300 views1 answer
Sort dictionary by key vba
VBA
-1 vote278 views2 answers
Excel vba delete empty rows
VBA
0 vote281 views1 answer
Excel vba disable screen update
VBA
0 vote262 views1 answer
Vba word open document read only
VBA