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 vote159 views1 answer
Vba change active sheet
VBA
0 vote189 views1 answer
Check if cell is dbnullvb.net
VBA
4 votes148 views1 answer
Excel vba check cell not empty
VBA
0 vote159 views1 answer
Vba character ascii code
VBA
0 vote146 views1 answer
Vba test optional argument
VBA
0 vote179 views1 answer
Vbnet check if string is only numbers
VBA
-1 vote154 views1 answer
VBA check if a cell contains a letter or string
VBA
3 votes169 views1 answer
Vba double quote
VBA
1 vote153 views1 answer
Excel vba Run a Macro every time sheet is changed
VBA
-1 vote161 views1 answer
How to correct a number to 2 decimal places in vba
VBA