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

     
If OptionButton6.Value = True Then
        Sum = 0
        flag1 = 0
        flag2 = 0
 
        For i = 1 To n
           For j = 1 To m
              If rab1(i, j) < 0 Then
                flag2 = 1
                Exit For
              End If
        Next j
        If flag2 = 1 Then Exit For
        Next i
         ' нахожу первый отрицательный элемент
        For o = n To 1 Step -1
              For k = m To 1 Step -1
                  If rab1(o, k) < 0 Then
                          flag1 = 1
                          Exit For
                  End If
        Next k
        If flag1 = 1 Then Exit For
        Next o
' нахожу последний отрицательный элемент
        If flag1 = 1 Then
        If flag2 = 1 Then
        
        For q = i To o  ' Вот здесь,нестабильная работа.
        For w = j To k
                 kol = rab1(q, w)
                 Sum = Sum + kol
        Next w
        Next q
   ' считаю сумму
        MsgBox ("Сумма равна = ") & Sum
        End If
        Else
         MsgBox ("В этом массиве нет отрицательных эл. или эл. один!")
        End If
OptionButton7.Enabled = True
OptionButton6.Enabled = False
        End If