Вычисление суммы элементов от второго отрицательного и до конца - VB

Private Sub Command1_Click()
    Dim i As Integer, j As Integer
    Dim A() As Variant, n As Integer, Sum As Double
    
    A = Array(1, 2, 3, 4, 5, 6, -7, 6, 7, 8, 9, 1, -1, 2, 3, 4, 5, 7)
    
    For i = 0 To UBound(A)
               If A(i) < 0 Then n = n + 1
               If n = 2 Then
                      For j = i + 1 To UBound(A)
                        Sum = Sum + A(j)
                      Next j
                      Exit For
               End If
    Next i
    
    MsgBox "Cуммa элементов от второго отрицательного и до конца равна " & Sum
End Sub