Sub mit Parametern (Wörterbuch mit Item: Array)

Kann nicht herausfinden, was mit dem Code unten falsch ist. Ich habe ein Wörterbuch erstellt, das einen Schlüssel (mit dem Namen "SMTH") enthält, und dieser Schlüssel enthält ein Element (Array mit drei ganzen Zahlen). Und jetzt möchte ich, dass es dieses Array an die Sub-Prozedur sendet, es berechnet und zurückkehrt.

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

Tippfehler ...

Ich freue mich über jede Hilfe!