Как найти сумму отрицательных элементов массивов X и Y - VB

Function SumNeg(X() As Double, Y() As Double) As Double
Static i As Integer
Static n As Integer
Static S As Double
    If i = 0 Then
       i = 1
       SumNeg = SumNeg(X(), Y())
    Else
       If i > UBound(X, 1) Then
         SumNeg = S / n ^ 2
         Exit Function
      Else
         If X(i) < 0 And Y(i) < 0 Then
            S = S + (X(i) + Y(i)) ^ 2
            n = n + 1
         End If
         i = i + 1
         SumNeg = SumNeg(X(), Y())
     End If
    End If
End Function