Вычислить сумму модулей элементов массива, расположенных после первого элемента, равного нулю

Sub SumAfterNull()
Dim i&, j&, q&, w&, mSum&, StartARR()
    ReDim StartARR(1 To 10, 1 To 10)
    ' initial array
    Randomize Timer
        For i = 1 To 10
            For j = 1 To 10
                StartARR(i, j) = Int((100 * Rnd()) + 1)
            Next j
        Next i
    StartARR(5, 5) = 0 ' !!! Null set UNNATURAL !!!
'    StartARR(10, 10) = 0 ' !!! Null set UNNATURAL !!!
'--Only--for--Verification-----------------------------------
'Stop
'    Cells(1, 1).Resize(UBound(StartARR, 1), _
'            UBound(StartARR, 2)).Value = StartARR
'==End==Verification================================
    For i = LBound(StartARR, 1) To UBound(StartARR, 1)
        For j = LBound(StartARR, 2) To UBound(StartARR, 2)
            If StartARR(i, j) = 0 Then
                For q = i To UBound(StartARR, 1)
                    For w = j To UBound(StartARR, 2)
                        mSum = mSum + StartARR(q, w)
                    Next 'w
                Next 'q
                If mSum = 0 Then
                    MsgBox "Null Is Found. The last member of the array."
                    MsgBox Space(12) & "DONE!"
                    Exit Sub
                        Else
                            MsgBox "My SUM Is:  " & " === " & mSum
                            MsgBox Space(12) & "DONE!"
                            Exit Sub
                End If
            End If
        Next j
    Next i
    MsgBox Space(8) & "Zero Found."
    MsgBox Space(12) & "DONE!"
End Sub