Некорректно считается сумма отрицательных элементов массива

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
'Обчислити суму всіх від’ємних елементів масиву A=(a1, a2,…, an)
 
'Создали, заполнили массив
Dim array_1() As Integer
Dim i, counter, n As Integer
n = Val(InputBox("Введи количество элементов массива : "))
ReDim array_1(n)
For i = 1 To n
array_1(i) = Val(InputBox("Ввод массива : "))
ListBox2.Items.Add(Str(array_1(i)))
If array_1(i) < 0 Then
counter += 1
End If
Next
''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Создали второй массив
'Перезаписали отрицательные элементы с первого массива во второй массив
Dim array_2(counter) As Integer
For i = 1 To counter
If array_1(i) < 0 Then
array_2(i) = array_1(i)
End If
Next
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim sum_of_elements As Integer
For i = 1 To counter
sum_of_elements += array_2(i)
Next
MsgBox(Str(sum_of_elements))
End Sub
End Class

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
counter += 1
sum_of_elements += array_2(i)
End Class ' а это откуда?

Private Sub Button3_Click()
Dim i As Integer, counter As Integer, n As Integer
counter = counter + 1
sum_of_elements =sum_of_elements + array_2(i)
End Class ' Убрать

Dim array_2(counter) As Integer
For i = 1 To counter
If array_1(i) < 0 Then
array_2(i) = array_1(i)
End If
Next

Dim sum_of_elements As Integer
For i = 1 To counter
sum_of_elements += array_2(i)
Next
MsgBox(Str(sum_of_elements))
End Sub

Sub MMM()
i = 1.2
    Do While i <= 2.4
    'здесь ваши действия...
    
       i = i + 0.2
    Loop
End Sub