В массиве поменять местами наибольший и наименьший элементы - VB

dim A() as integer, B as integer
dim N as integer, min as integer, max as integer
dim i as integer, mini as integer, maxi as integer
 
n=inputbox("BBEDITE")
redim A(N)
for i=1 to n
A(i)=inputbox("BBEDITE A" & i)
next i
min = A(1)
max = A(1)
mini = 1
maxi = 1
 
for i=2 to n
if min > A(i) then min = A(i) : mini = i
if max < A(i) then max = A(i) : max = i
next i
 
B=A(mini)
A(mini)=A(maxi)
A(maxi)=B
 
for i=1 to n
msgbox "A(" & i & ")=" A(i)
next i