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

Private Sub Command1_Click()
On Error GoTo er
Dim a(5, 3) As Integer
Dim B(24) As Integer
Dim B1(24) As Integer
Dim B11(24) As Integer
Dim m As Integer
Dim m1 As Integer
Dim m2 As Integer
Dim m20 As Integer
Dim m21 As Integer
Dim m14 As Integer
Dim m24 As Integer
Cls
List1.Clear
List2.Clear
Label1.Caption = ""
Print "ДВУМЕРНЫЙ МАССИВ"
Randomize
For i = 0 To 3
  For j = 0 To 5
    a(j, i) = 30 * Rnd - 3
    If a(j, i) < 0 Then m = m + 1
    Print a(j, i); ;
  Next j
  Print
 Next i
' Переводим двумерный массив в одномерный для удобства вычислени
Print
List1.AddItem ("ОДНОМЕРНЫЙ МАССИВ")
  For i1 = 0 To i - 1
     For j1 = 0 To j - 1
         B(m1) = a(j1, i1)
         If B(m1) < 0 Then
         
         If m20 = 0 Then m14 = m1
         If m20 = 1 Then m24 = m1
         Print m1; ; B(m1) '; ; m20; ; m14; ; m24
         m20 = m20 + 1
      End If
     List1.AddItem (m1 & "=" & B(m1))
     m1 = m1 + 1
     Next j1
  Next i1
If m < 2 Then
Label2.Caption = "no" 'расчет не возможен
Cls
Exit Sub
Else
Label2.Caption = "yes" 'расчет возможен
End If
 'расчет
  List2.AddItem ("Расчет")
  m20 = (B(m14 + 1))
  List2.AddItem (m20)
For i = m14 + 2 To m24 - 1
  m20 = m20 + B(i)
  List2.AddItem (m20)
Next i
 List2.AddItem ("Ответ :" & m20)
Label1.Caption = "Всего:" & m1 & Chr(13) & "Отрицательных " & m
Exit Sub
er:
MsgBox "Что то не так"
End Sub