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 vote128 views1 answer
Afficher un message d'erreur vba
VBA
0 vote140 views1 answer
Vba word open document read only
VBA
0 vote136 views1 answer
Vba sheet hide unhide
VBA
0 vote144 views1 answer
Reset border color textbox vba
VBA
1 vote149 views2 answers
Excel vba password protect
VBA
0 vote132 views1 answer
Excel vba disable mouse click
VBA
2 votes139 views1 answer
Vba file from path
VBA
0 vote142 views1 answer
Vba add spaces
VBA
1 vote128 views1 answer
Textbox find and replace vb
VBA
0 vote145 views1 answer
Vba min
VBA