Заменить первый отрицательный элемент массива на первый положительный - VB

Sub chng(A() as integer)
      i_pos%=-1
      i_neg%=-1
      for i%=1 to to Ubound(A,1)
          if A(i%)>0 And i_pos%=-1 then i_pos%=i%
          if A(i%)<0 And i_neg%=-1 then i_neg%=i%
          if i_pos% > 0 And i_neg% > 0 then Exit for
      next i%
 
      If i_pos% > 0 And i_neg% > 0 then
         A(i_neg%)=A(i_pos%)
      elseIf i_pos% > 0 And i_neg% =-1 then
         Debug.Print "Нет отрицательных"
      elseIf i_pos% = -1 And i_neg% > 0 then
         Debug.Print "Нет положительных"
      else
          Debug.Print "Одни нули..."
      end if
End Sub