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

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

Public Sub Form_Load()
    Dim X$, A$(), S$, s1$, b As Boolean
 
    X = "{2; 1; -4; 3; 8; 9; 7; 0; -7; 12; 11; 6; -5; 4; 1}"
    X = Replace(Replace(X, "{", ""), "}", "")
    A = Split(X, ";")
    Do
        S = InputBox("Введите элемент списка от 1 до " & UBound(A), , 1)
        If IsNumeric(S) Then
            s1 = "[" & Chr(1) & "-" & Chr(UBound(A)) & "]"
            b = Chr(S) Like s1
            If Not b Then MsgBox "Недопуcтимый индекс": Exit Do
            MsgBox _
            "Соседний элемент (ниже) = " & A(S - 1) & vbcrlf & _
            "Соседний элемент (выше) = " & A(S + 1)
        End If
    Loop While S <> ""
    End
 
End Sub

Public Sub Form_Load()
    Dim X$, A$(), S$, Result$, b As Boolean, f&, f1&, u&
 
    X = "{2; 1; -4; 3; 8; 9; 7; 0; -7; 12; 11; 6; -5; 4; 1}"
    X = Replace(Replace(X, "{", ""), "}", "")
    A = Split(X, ";")
    u = UBound(A)
    
    For f = 0 To u
        Result = Result & "Следущие элементы больше чем " & A(f) & " ="
        For f1 = f To u
            If Val(A(f1)) > Val(A(f)) Then Result = Result & A(f1) & ","
        Next
        Result = IIf(Right$(Result, 1) = "=", Result & "Нет", Left(Result, Len(Result) - 1)) & vbcrlf
    Next
    MsgBox Result
    End
 
End Sub