Sub with parametres（带项目的字典：数组）

无法弄清楚下面的代码有什么问题。我创建的Dictionary包含一个键（名为“SMTH”），该键包含一个项目（包含三个整数的数组）。现在我希望它将此数组发送到Sub过程，计算并返回。

Dim SMTH As String
Dim d
Dim Myarray
SMTH = "SMTH"
Myarray = Array(10, 20, 30)
Set d = CreateObject("Scripting.Dictionary")
d.Add SMTH, Myarray

Call countSub(Myarray)             'here is mistake I can't fix

Debug.Print Myarray(0), Myarray(1), Myarray(2)
End Sub

Sub countSub(Arr() As Variant)
For N = LBound(Arr) To UBound(Arr)
    Arr(N) = N * 10
Next N
End Sub

类型不匹配错误...

我会感激任何帮助！