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

Dim MAS() As Long
 Dim N As Integer
  ReDim MAS(1 To N) As Long
 For I = 1 To N
  MAS(I) = InputBox(“MAS(“ + Str(I) + ”) = ”)
 Next I
 
 Dim max_pos As Integer
 Dim min_pos As Integer
 Dim summ As Integer
 
 For I = 1 To N
  If MAS(I) < 0 Then ' если отрицательный элемент
   If min_pos = 0 Then ' если это первый попавшийся отр. элемент
    min_pos = I ' запишем его позицию
   End If
  End If
 Next I
 For I = N To 1 Step -1
  If MAS(I) > 0 Then ' если элемент положительный
   If max_pos Then ' если это первый попавшийся пол. элемент
    max_pos = I ' Записать его позицию
   End If
  End If
 Next I
 
 For I = min_pos To max_pos
  summ = summ + MAS(I)

 For I = 1 To N
  If MAS(I) < 0 Then ' если отрицательный элемент
    min_pos = I ' запишем его позицию
    exit for
  End If
 Next I
 
 For I = N To 1 Step -1
  If MAS(I) > 0 Then ' если элемент положительный
    max_pos = I ' Записать его позицию
    exit for
  End If
 Next I
 
summ=0
for i=min_pos+1 to max_pos-1
  summ=summ+MAS(i)
next i
msgbox summ

for i=min_pos+1 to max_pos-1

for i=min_pos+1 to max_pos

for i=min_pos+1 to max_pos-1

Option Explicit
 
Private Sub Command1_Click()
Dim MAS() As Long
 Dim N As Integer
 Dim i As Integer
 N = InputBox(" Введите размер массива")
  ReDim MAS(1 To N) As Long
 For i = 1 To N
  MAS(i) = InputBox("MAS(" + Str(i) + ") = ")
 Next i
 
 Dim max_pos As Integer
 Dim min_pos As Integer
 Dim summ As Integer
 
 For i = 1 To N
  If MAS(i) < 0 Then ' если отрицательный элемент
    min_pos = i ' запишем его позицию
    Exit For
  End If
 Next i
 
 For i = N To 1 Step -1
  If MAS(i) > 0 Then ' если элемент положительный
    max_pos = i ' Записать его позицию
    Exit For
  End If
 Next i
 
summ = 0
For i = min_pos + 1 To max_pos
  summ = summ + MAS(i)
Next i
MsgBox summ
End Sub