Ошибка с выводом ответа в listbox. Задача на одномерный массив - Visual Basic .NET

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

Дан массив, содержащий 14 элементов. Вычислить сумму элементов, стоящих до первого отрицательного элемента. Вывести исходный массив и результат вычислений.

Public Class Form1
    Dim rnd As New Random()
    Dim mas(14) As Int32
    Dim sum As Int32 = 0
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ListBox1.Items.Clear()
        For i As Int32 = 0 To mas.Length - 1
            mas(i) = rnd.Next(-45, 50)
 
            ListBox1.Items.Add("mas(" + i.ToString() + ") = " + mas(i).ToString())
 
        Next
    End Sub
 
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        ListBox2.Items.Clear()
        For i As Int32 = 0 To mas.Length - 1
            If mas(i) > 0 Then
                sum += mas(i)
            ElseIf mas(i) < 0 Then
                ListBox2.Items.Add("summa = " + sum.ToString())
            End If
        Next
    End Sub
End Class

Пишу в чем заключается проблема: мне нужно чтобы после первого отрицательного числа массива программа обрывалась и подсчитывала сумму предыдущих положительных, но она мне считает как: сумму положительных до первого отрицательного, потом сумму положительных ВСЕХ до второго и т.д.

Решение задачи: «Ошибка с выводом ответа в listbox. Задача на одномерный массив»

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

                             ListBox2.Items.Clear()
        For i As Int32 = 0 To mas.Length - 1
            If mas(i) > 0 Then
                sum += mas(i)
            ElseIf mas(i) < 0 Then
                ListBox2.Items.Add("summa = " + sum.ToString())
                Exit Sub
            End If
        Next
                        