Оставить без изменений последовательность, если она упорядочена по возрастанию - VB

Sub Task(A() As integer)
  n%=Ubound(A,1)
  k%=0
  for i%=2 to n%
      If A(i%) < A(i%-1) then 
         k%=-1
         exit for
      end if
  Next i%
  if k%=0 then exit Sub
  For i%=1 to n%
       if (A(i%) mod 4) = 0 then A(i%)=2*A(i%)
  Next i%
End Sub