Вложенные циклы. Найти количество наборов, элементы которых возрастают или убывают - VB

Function CountAcs(A() As Integer) As Integer
  n% = UBound(A, 1)
  p% = 1
  i% = 2
  Do
      If i% > n% Then Exit Do
      If A(i%) = 0 Then
         c% = c% + p%
         p% = 1
         i% = i% + 1
      ElseIf A(i%) <= A(i% - 1) Then
         p% = 0
      End If
      i% = i% + 1
  Loop
  CountAcs = c% + p%
End Function
 
Sub Test()
Dim X(1 To 10) As Integer
 
    X(1) = 2
    X(2) = 3
    X(3) = 4
    X(4) = 0
    X(5) = -1
    X(6) = 0
    X(7) = 5
    X(8) = 7
    X(9) = 8
    X(10) = 4
 
    Debug.Print CountAcs(X)
 
End Sub