Сумма элементов в тех строках матрицы, которые не содержат отрицательных элементов - VBA

Формулировка задачи:

Добрый день. Прошу помощи. Дана целочисленная квадратная матрица. Определить: - сумму элементов в тех строках, которые не содержат отрицательных элементов; - минимум среди сумм элементов диагоналей, параллельных главной диагонали матрицы; Начал делать первое, но столкнулся с проблемкой. Если в матрице попадаются более одной строки с положительными элементами, то программа считает только последнюю строку. Вот код:

Private Sub OptionButton1_Click()
 Dim flag As Boolean
 For i = 1 To m
   summa = 0
   flag = True
   For j = 1 To m
        If a(i, j) < 0 Then
            flag = False
        End If
        summa = summa + a(i, j)
   Next j
   If flag = True Then
        TextBox2.Text = "stroka: " & i & " summa: " & summa
   End If
 Next i
End Sub

Помогите пожалуйста.

Решение задачи: «Сумма элементов в тех строках матрицы, которые не содержат отрицательных элементов»

textual
                            Листинг программы 
                        

                            Function Task2(A() As Integer) As Integer
  n% = UBound(A, 1)
  smin% = A(n%, 1)
  For k% = 2 To n%
      S% = 0
      Q% = 0
      p% = k%
      For i% = 1 To n% - k% + 1
          S% = S% + A(i%, p%)
          Q% = Q% + A(p%, i%)
          p% = p% + 1
      Next i%
      If smin% > S% Then
         smin% = S%
      End If
      If smin% > Q% Then
         smin% = Q%
      End If
  Next k%
  Task2 = smin%
End Function
                        