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

Формулировка задачи:

Даны три числа. Вывести вначале наименьшее, а затем наибольшее из данных чисел. Единицы длины пронумерованы следующим образом: 1 — дециметр, 2 — километр, 3 — метр, 4 — миллиметр, 5 — сантиметр. Дан номер единицы длины (целое число в диапазоне 1–5) и длина отрезка в этих единицах (вещественное число). Найти длину отрезка в метрах. Дано целое число N (> 1) и две вещественные точки на числовой оси: A, B (A < B). Отрезок [A, B] разбит на N равных отрезков. Вывести H — длину каждого отрезка, а также значения функции F(X) = 1 – sin(X) в точках, разбивающих отрезок [A, B]: F(A), F(A + H), F(A + 2•H), … , F(B). помогите составить программу...............

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

textual
                            Листинг программы 
                        

                            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
                        