Массив чисел. Найти числа, которые находятся между первыми максимальным и минимальным - VB

dim max as integer
dim min as integer
din n as integer
n=val(inputbox("n"))
redim A(n)
max=0:min=0
     for i=1 to n
          A(i)=val(inputbox("A(i)"))
          if max<A(i) then max=A(i): ch1=i
          if min>A(i) the min=A(i):  ch2=i
     next i
if ch1<ch2 then
     for i=ch1+1 to ch2-1
          print A(i)
     next i
end if
redim pA(2^7)
if ch1>ch2 then
     ch=ch+1
     for i=ch2+1 to ch1-1
        pA(ch)=A(i)
     next i
     for i=ch to 1
        print pA(i)
     next i
end if