Найдите ошибку в массиве

[Nataly1992]

Дан одномерный массив А(n), который состоит не менее, чем из 10 элеметов(больших за ноль, меньших за ноль, нулевых). Выходной массив получить, поменяв второй елемент, меньший за ноль, минимальным. Вывести оба массива - входной и выходной в Excel.

Вот что написали:
Private Sub CommandButton1_Click()
n = InputBox("Vvedite kolichestvo n")
ReDim A(n)
For i = 1 To n
A(i) = InputBox("Vvedite A(" & i & ")")
Next i
For i = 1 To n
Cells(2, i).Value = A(i)
Next i
Cells(1, 1) = "Vhodnoj"
Cells(1, 2) = "Massiv"
Cells(3, 1) = "Vuhodnoj"
Cells(3, 2) = "Massiv"
Amin = A(1): Nmin = 1
Nvtoroy = 0
For i = 1 To n
If A(i) < 0 Then k = k + 1
If k = 2 Then Nvtoroy = i
If Amin > A(i) Then Amin = A(i): Nmin = i
Next i
If Nvtoroy > 0 Then
A(Nvtoroy) = Amin
els
MsgBox "В массиве А меньше 2 элементов меньших нуля"
End If
For i = 1 To n
Cells(4, i).Value = A(i)
Next i
End Sub


Только вот у меня вместо второго , который меньше нуля, меняет последний
Найдите ошибку

[Nataly1992]

некоторые пояснения
For i = 1 To n
If A(i) < 0 Then k = k + 1 ' находим элемент в массиве меньший нуля и переменную k увеличиваем на 1
If k = 2 Then Nvtoroy = i ' когда находим второй элемент массива меньший за ноль в переменной Nvtoroy запоминаем его место
If Amin > A(i) Then Amin = A(i): Nmin = i
Next i
If Nvtoroy > 0 Then
A(Nvtoroy) = Amin 'на место второго меньшего за ноль стравим минимальный
els
MsgBox "В массиве А меньше 2 элементов меньших нуля"
End If