Работа с массивами

Sub Yomanim()
'В одномерном массиве, состоящем из n вещественных элементов, вычислить:
'1.Минимальный элемент массива.
'2.Сумму элементов массива расположенных между первым и последним положительными элементами.
    Dim Mass() As Integer
    Dim n As Integer
    Dim i As Integer
    Dim Min As Integer
    Dim Summ As Long, Summ1 As Long, Summ2 As Long
    On Error Resume Next
    n = InputBox("Введите число элементов массива")
    If Err.Number > 0 Or n <= 1 Then MsgBox "Ошибка ввода": Exit Sub
    ReDim Mass(1 To n)
    For i = 1 To n
        Mass(i) = Int(100 * Rnd() - 50)
    Next i
    Range("A1").Resize(n) = Application.Transpose(Mass)
    Min = Application.WorksheetFunction.Min(Mass)
    For i = 1 To n
        If Mass(i) < 0 Then
            Summ1 = Summ1 + Mass(i)
        Else
            Summ1 = Summ1 + Mass(i)
            Exit For
        End If
    Next i
    For i = n To 1 Step -1
        If Mass(i) < 0 Then
            Summ2 = Summ2 + Mass(i)
        Else
            Summ2 = Summ2 + Mass(i)
            Exit For
        End If
    Next i
    Summ = Application.WorksheetFunction.Sum(Mass) - Summ1 - Summ2
    MsgBox "Минимальный элемент массива: " & Min & vbCrLf & _
            "Сумма элементов между первым и последним положительными элементами равна: " & Summ
End Sub

Sub MMM()
n = 10
ReDim Mass(1 To n)
For i = 1 To n
        Mass(i) = Int(100 * Rnd() - 50)
       W = W & Mass(i) & ";"
Next i
 
 Flag1 = True
 Flag2 = True
 A = n
 B = n
 Min = 200
 
For i = 1 To n
   If Mass(i) <= Min Then Min = Mass(i)
   If Mass(i) > 0 And Flag1 Then
     A = i
     Flag1 = False
   End If
   
   If Mass(n + 1 - i) > 0 And Flag2 Then
     B = n + 1 - i
     Flag2 = False
    End If
  If i > A And i < B Then Sum = Sum + Mass(i)  
Next i
 
MsgBox ("ARRAY:" & W) & Chr(13) & "Min=" & Min & Chr(13) & "SUM BETWEEN=" & Sum
 
End Sub