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 vote222 views2 answers
Excel vba copy paste after last row
VBA
0 vote219 views1 answer
Power query M substract minimum value of column -dax
VBA
5 votes215 views1 answer
Excel vba low byte from INTEGER
VBA
1 vote212 views1 answer
Add a index column power bi
VBA
0 vote206 views1 answer
Le contrôle SpinButton (Toupie)
VBA
0 vote209 views1 answer
Vbnet check if number is even or odd
VBA
0 vote268 views1 answer
Vba vbcrlf chr
VBA
3 votes193 views1 answer
Excel vba last row in range
VBA
0 vote204 views1 answer
Vbnet check if sting contians symbols
VBA
25 votes263 views2 answers
Excel vba folder exist
VBA