Получить сумму тех чисел последовательности, которые: кратны 5; нечетны и отрицательны - VB

Function Sum5(A() As Integer, Optional i As Integer = 1) As Integer
   If i > UBound(A, 1) Then
     Sum5 = 0
   Else
     Sum5 = IIf((A(i) Mod 5) = 0, A(i), 0) + Sum5(A, i + 1)
   End If
End Function
 
Function SumNO(A() As Integer, Optional i As Integer = 1) As Integer
   If i > UBound(A, 1) Then
     SumNO = 0
   Else
     SumNO = IIf(A(i) < 0 And (A(i) Mod 2) <> 0, A(i), 0) + Sum5(A, i + 1)
   End If
End Function
 
Sub Test()
Dim X(1 To 5) As Integer
    X(1) = -7
    X(2) = -15
    X(3) = 4
    X(4) = 5
    X(5) = 10
    Debug.Print Sum5(X)
    Debug.Print SumNO(X)
End Sub