vba - 多次元配列の 1 つの次元を合計すると型の不一致エラーが発生する

Question

2D 配列があり、1 つの次元に沿って追加しようとしています。2D 配列はバリアント型であり、一部の要素が null ("") である可能性があります

これがこれまでのコードです

'newArray is 2D Array
Function SumColumn(newArray As Variant, index As Integer) As Double
    Dim tempArray() As Double
    ReDim tempArray(1 To UBound(newArray))
    For i = 1 To (UBound(newArray))
        tempArray(i) = CDbl(newArray(i, index))
    Next
    SumColumn = Application.WorksheetFunction.Sum(tempArray)
End Function

上記のコードを実行すると、型の不一致エラーが発生します。デバッグを手伝ってください