Напечатать числа, которые образуют убывающие последовательности - VB

Private Sub Command1_Click()
 
   Dim A(1 To 10) As Integer
 
   A(1) = 1
   A(2) = 2
   A(3) = 10
   A(4) = 5
   A(5) = 4
   A(6) = 3
   A(7) = 7
   A(8) = 6
   A(9) = 5
   A(10) = 19
 
   Task A()
 
End Sub
 
Sub Task(A() As Integer)
 
      n1% = LBound(A, 1)
      n2% = UBound(A, 1)
      
      nBeg% = n1%
      
      Do
         
          If nBeg% >= n2% Then Exit Do
          
          nPrev% = nBeg%
          nCurr% = nBeg% + 1
 
          Do
             
              If A(nCurr%) < A(nPrev%) Then
              
                 nPrev% = nCurr%
                 nCurr% = nCurr% + 1
              
                 If nCurr% = n2% Then
                    If nPrev% - nBeg% > 1 Then
                       For i% = nBeg% To nPrev%
                           Debug.Print A(i%); " ";
                       Next i%
                       Debug.Print ""
                       c% = c% + 1
                       nBeg% = n2%
                       Exit Do
                     End If
                 End If
              
              Else
                 
                 If nPrev% - nBeg% > 1 Then
                    For i% = nBeg% To nPrev%
                        Debug.Print A(i%); " ";
                    Next i%
                    Debug.Print ""
                    c% = c% + 1
                 End If
                 
                 nBeg% = nCurr%
                 Exit Do
                 
              End If
 
          Loop
 
      Loop
      
      If c% = 0 Then Debug.Print "Убывающих последовательностей нет!"
      
End Sub