Дана матрица [A], размером N x M. Найти нулевые элементы матрицы и определить их индексы

Sub ZeroElemIndices()
    Dim iColl As New Collection, c As Range
    Dim a() As Long, ind(1) As Long
    Dim i As Long, j As Long, n As Long, m As Long
    'Определяем размерность матрицы.
    While n < 1
        n = InputBox("Введите количество строк матрицы:", "N", 5)
        If n < 1 Then MsgBox "Должна быть минимум 1 строка."
    Wend
    While m < 1
        m = InputBox("Введите количество столбцов матрицы:", "M", 5)
        If m < 1 Then MsgBox "Должен быть минимум 1 столбец."
    Wend
    ReDim a(n - 1, m - 1) As Long
    'Генерируем матрицу и определяем индексы ее нулевых элементов.
    Randomize
    For i = 0 To n - 1
        For j = 0 To m - 1
            If Rnd < 0.3 Then
                a(i, j) = 0
                ind(0) = i + 1
                ind(1) = j + 1
                iColl.Add ind
            Else
                a(i, j) = Int(Rnd * 100)
            End If
        Next j
    Next i
    'Выводим матрицу.
    Cells(1) = "Матрица:"
    Cells(2, 1).Resize(n, m) = a
    'Выводим индексы нулевых элементов.
    Set c = Cells(m + 2)
    c = "Индексы нулевых элементов:"
    If iColl.Count > 0 Then
        For i = 1 To iColl.Count
            Set c = c.Offset(1)
            c.Resize(1, 2) = Array("i: " & iColl(i)(0), "j: " & iColl(i)(1))
        Next i
    Else
        c.Offset(1) = "Нулевых элементов нет."
    End If
End Sub