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 vote159 views2 answers
Excel vba close without saving
VBA
0 vote168 views1 answer
Vba code for cutoff time
VBA
0 vote165 views1 answer
Excel vba existence of a file
VBA
0 vote176 views2 answers
Open url from vba
VBA
12 votes296 views1 answer
Excel vba write string to text file
VBA
5 votes186 views1 answer
Vba low byte from INTEGER
VBA
0 vote162 views1 answer
Vba collection key list
VBA
1 vote155 views1 answer
Textbox find and replace vb
VBA
0 vote168 views2 answers
Vb.net include quotes in string
VBA
2 votes187 views2 answers
Excel vba if sunday or staurday
VBA