Scripting Dictionary add additional items

e.g using array:

Sub Test()
Dim arr(0 To 10) As Long
Dim vKeys: vKeys = Array("Fruits", "vegetables", "cats", "dogs")
Dim vKey
Dim dic As Object: Set dic = CreateObject("scripting.dictionary")

For Each vKey In vKeys
    For x = 0 To 10
        arr(x) = x
    Next x
    dic.Add vKey, arr
Next vKey

Debug.Print "Fruits :" & dic("Fruits")(1)
Debug.Print "Fruits :" & dic("Fruits")(2)
Debug.Print "Cats   :" & dic("cats")(3)
Debug.Print "Cats   :" & dic("cats")(4)
Debug.Print "Dogs   :" & dic("dogs")(5)

End Sub