Даны три числа. Вывести вначале наименьшее, а затем наибольшее из данных чисел

dim min as double
dim max as double
dim x(1 to 3) as double
dim i as byte
for i=1 to 3
  x(i)=inputbox("Введите первое число")
  x(i)=inputbox("Введите второе число")
  x(i)=inputbox("Введите третье число")
next i
min=x(1)
max=x(1)
for i=1 to 3
  if x(i)>max then max=x(i)
  if x(i)<min then min=x(i)
next i
print "min=";min
print "max=";max

dim dlina_itog as single
dim dlina_dm as single
dim dlina_km as single
dim dlina_m as single
dim dlina_mm as single
dim dlina_sm as single
dim nomer as integer 'можно byte
dim chislo as integer '- если число целое, single - если число дробное, double - если число дробное повышенной точности, byte - если число целое положительное, но с ним бывает ругается
nomer=inputbox("Введите номер единицы длины")
chislo=inputbox("Введите длину отрезка в единицах")
if nomer=1 then dlina_dm=chislo 'тут я не дописывал нули, т.к. изначально все переменные равны нулю
if nomer=2 then dlina_km=chislo
if nomer=3 then dlina_m=chislo
if nomer=4 then dlina_mm=chislo
if nomer=5 then dlina_sm=chislo
dlina_itog=dlina_dm/10+dlina_km*1000+dlina_m+dlina_mm/1000+dlina_sm/100
print "Длина в метрах=";dlina_itog