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 vote267 views1 answer
Vbscript remove spaces from string
VBA
1 vote232 views1 answer
Excel vba first and last row and column in range
VBA
0 vote249 views1 answer
Afficher un message d'erreur vba
VBA
15 votes291 views1 answer
Excel vba wait
VBA
4 votes246 views2 answers
Excel vba last column with data
VBA
1 vote243 views1 answer
Excel date to unix timestamp
VBA
0 vote226 views1 answer
Find the name of the last excel sheet vb
VBA
8 votes252 views1 answer
Excel vba determine number of elements in a 1D array
VBA
0 vote233 views1 answer
Vba code to select image in sheet
VBA
5 votes231 views1 answer
Excel vba how to unit test vba code
VBA