Array Groesse - Run Time Error 13 Type Mismatch

Sub Test()
Dim z As Long
Dim arr(10000) As Double
Dim dblAverage As Double, dblStDev As Double
For z = 1 To 10000
Randomize
arr(z) = 0.01
Next z
dblAverage = Application.WorksheetFunction.Average(arr)
dblStDev = Application.WorksheetFunction.StDev(arr)
End Sub

Wenn ich den Array mit 10.000 Elementen oder weniger definiere (und die For-Schleife entsprechend anpasse), funktioniert der Code. Erhöhe ich aber die Anzahl der Elemente auf 100.000, kommt der Run Time Error 13 - Type mismatch (auch wenn ich den Array als Variant definiere). Woran könnte es liegen, denn im Gegensatz zum Link oben habe ich die neueste Excel-Version. Zwar nur eine Testversion, aber die ist laut Microsoft voll funktionsfähig (und 100.000 Elemente sollten den Code jetzt auch nicht in die Knie zwingen). Ist der Code vll. falsch?
Vielen Dank und Grüße,
Christoph