В матрице найти строку, состоящую только из отрицательных чисел - VBA - Ответ 6149627

Function FindNegStr(A() As Integer, Optional i As Integer = 1, Optional j As Integer = 1, Optional c As Integer = 0) As Integer
       n% = UBound(A, 1)
       If (i > n%) Then
          FindNegStr = 0
          Exit Function
       Else
          If (j > n) Then
             If (c = n%) Then
                FindNegStr = i
                Exit Function
             Else
                FindNegStr = FindNegStr(A, i + 1, 1, 0)
             End If
          Else
             If A(i, j) >= 0 Then
                FindNegStr = FindNegStr(A, i + 1, 1, 0)
             Else
                FindNegStr = FindNegStr(A, i, j + 1, c + 1)
             End If
          End If
       End If
End Function
 
Sub Test()
 
Dim A(1 To 3, 1 To 3) As Integer
    
    A(1, 1) = 1
    A(1, 2) = 1
    A(1, 3) = 1
    
    A(2, 1) = -1
    A(2, 2) = -1
    A(2, 3) = -1
    
    A(3, 1) = -1
    A(3, 2) = 1
    A(3, 3) = -1
    
    Debug.Print FindNegStr(A)
 
End Sub