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 vote193 views1 answer
Filesystemobject vba reference
VBA
0 vote199 views1 answer
Vba multiple optional arguments
VBA
2 votes235 views1 answer
Vba round number
VBA
1 vote172 views1 answer
Close form vba
VBA
0 vote192 views1 answer
.net dark title bar
VBA
0 vote186 views1 answer
Vba sort the data Z to A
VBA
-1 vote192 views1 answer
How to correct a number to 2 decimal places in vba
VBA
5 votes189 views1 answer
Excel vba right word from Long Integer
VBA
2 votes177 views1 answer
Vba ado ace sql alias ignored for calculated column
VBA
0 vote185 views1 answer
Vba copy file
VBA