Для матрицы определить номер каждой строки, в которой не менее 2 элементов имеют нулевые значения

Sub Task(Matr() As integer)
      n%=Ubound(Matr,1)
      m%=Ubound(Matr,2)
      c%=0
      For i%=1 to n%
           q%=0
           For j%=1 to m%
                If Matr(i%,j%)=0 then
                   q%=q%+1
                   if q% > 1 then
                      c%=c%+1
                      Debug.print "В строке ";i%;" не менее двух нулей"
                      exit for
                   end if
                End if
          Next j% 
     Next i%
     Debug.print "Всего таких строк ";c%
End Sub

Sub var9()
Dim A(1 To 6, 1 To 3) As Integer, i As Integer, j As Integer, str As Integer, stl As Integer
For i = 1 To 6
    For j = 1 To 3
    A(i, j) = Cells(i, j)
    Next j
Next i
str = 1
For i = 1 To 6
If A(i, j) = 0 Then
str = str + 1
End If
Next i
    For j = 1 To 3
    If A(i, j) = 0 Then
    stl = stl + 1
    End If
    Next j
        MsgBox "число строк =" & str
        MsgBox "число столбцов =" & stl
End Sub

Sub var9()
Dim A(1 To 6, 1 To 3) As Integer, i As Integer, j As Integer, str As Integer, stl As Integer
   For i = 1 To 6
        For j = 1 To 3
             A(i, j) = Cells(i, j)
        Next j
   Next i
   '::: до сих пор все верно
   ';;; дальше пурга...
   str = 1 ' почему 1? Надо нуль.
   For i = 1 To 6
        If A(i, j) = 0 Then ' чему равно j?
           str = str + 1
        End If
   Next i
   '::: Зачем считать в столбцах? В условии - только в строках
   For j = 1 To 3
        If A(i, j) = 0 Then ' чему равно i?
           stl = stl + 1
        End If
   Next j
 
   MsgBox "число строк =" & str 
   MsgBox "число столбцов =" & stl
 
End Sub