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

Формулировка задачи:

Задали написать небольшую программку, вроде все сделал но почему то ругается, может я что то не так написал, если можно сделать по другому буду очень рад за помощь, ниже код и текст задания.

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)

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

Решение задачи: «В массиве подсчитать сумму элементов, расположенных между первым отрицательным и последним положительным»

textual
                            Листинг программы 
                        

                            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
                        