Sub с параметрами (словарь с item: array)

Question

Не могу понять, что не так с кодом ниже. Я создал словарь содержит один ключ (с именем "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

Ошибка несоответствия типов ...

Я буду признателен за любую помощь!