Add array's reference to dictionary

Question

dim arr1 as variant, dict as scripting.dictionary

arr1 = array("cat")

dict.add "arr1", arr1

dict.item("arr1") = array("dog"