В массиве X определить количество двух соседних элементов одного знака - VB

Function Task(X As Variant, Optional i As Integer = 0) As Integer
     If (i = UBound(X, 1)) Then
        Task = 0
     ElseIf Sgn(X(i)) = Sgn(X(i + 1)) And Abs(X(i)) > Abs(X(i + 1)) Then
        Task = 1 + Task(X, i + 1)
     Else
        Task = Task(X, i + 1)
     End If
End Function
 
Sub Test()
     A = Array(2, 1, -4, 3, 8, 9, 7, 0, -7, 12, 11, 6, -5, 4, 1)
     Debug.Print Task(A)
End Sub