Массив: Подсчет строк двухмерного массива А (N,N), в которых имеются два нулевых элемента

Private Sub Command1_Click()
Dim A() As Integer, n As Integer, m As Integer
 
Dim i As Integer, j, NUL, KOL_NUL As Integer
Randomize 'Иницилизация генератора случайных чисел
Me.Cls       'Очищаем форму
m = InputBox("Введите число строк", , 10)
n = InputBox("Введите число столбцов", , 10)
ReDim A(1 To m, 1 To n) ' Размеры матрицы А -  m-строк, n-столбцов
 For i = 1 To m
  For j = 1 To n
      A(i, j) = Int(Rnd * 10 - 5) 'Заполняем матрицу случайными числами
      Print A(i, j); vbTab;
  Next j
  Print
Next i
 Print
 NUL = 0
For i = 1 To m
    For j = 1 To n
        If A(i, j) = 0 Then NUL = NUL + 1
        If NUL >=  2 Then KOL_NUL = KOL_NUL + 1
    Next j
     NUL = 0
Next i
Print
MsgBox "Строк содержащих более 2 нулей = " & KOL_NUL, vbInformation + vbOKOnly, "Вывод ответа"
End Sub

If NUL =  2 Then KOL_NUL = KOL_NUL + 1

For i = 1 To m
    NUL = 0
    For j = 1 To n
        If A(i, j) = 0 Then NUL = NUL + 1
    Next j
    If NUL =  2 Then KOL_NUL = KOL_NUL + 1
Next i