如何在VBA中检索字典键值中的数组传递？

Dim dict As Object
Set dict = CreateObject("Scripting.Dictionary")

' 添加键值对
dict.Add "key1", Array("value1", "value2", "value3")
dict.Add "key2", Array("value4", "value5")
dict.Add "key3", Array("value6")

Dim key As String
key = "key1"

Dim values As Variant
values = dict.Item(key)

' 访问数组中的元素
Dim i As Integer
For i = LBound(values) To UBound(values)
    MsgBox values(i)
Next i