Найти максимальный и минимальный элементы массива D и поменять их местами - VB

min=1
max=1
for i=2 to 80
  if d(i) < d(min) then min=i
  if d(i) > d(max) then max=i
next i
tmp=d(min)
d(min)=d(max)
d(max)=tmp