Подскажите, как переделать программу

[wadsspire]

Единицы длины пронумерованы следующим образом: 1 — дециметр,
2 — километр, 3 — метр, 4 — миллиметр, 5 — сантиметр. Дан номер
единицы длины (целое число в диапазоне 1–5) и длина отрезка в этих
единицах (вещественное число). Найти длину отрезка в метрах.

Программа выводит значения не только в метрах, но и в остальных единицах измерения.
Как сделать так, чтобы выводила только в метрах?

Sub ln()
Dim N, L
N = InputBox("Введите номер единицы длины")
L = InputBox("Введите длину отрезка")
1: MsgBox (L / 10)
2: MsgBox (L * 1000)
3: MsgBox (L)
4: MsgBox (L / 1000)
5: MsgBox (L / 100)
End Sub

Сделать нужно, чтобы значения были не в ячейках, а в MsgBox.
Подскажите, пожалуйста

[BDA]

Visual Basic не знаю, по-моему, не хватает Select...Case.

[сфинкс]

небось нужно задать числовые коэффициенты

1 — дециметр =10^-1
2 — километр =10^3
3 — метр =1
4 — миллиметр =10^-3
5 — сантиметр =10^-2

и умножать

Sub ln()
Dim N, L
N = InputBox("Variant")
L = InputBox("Dlina")
If N=1 Then K=10^-1 Else: If N=2 Then K=10^3 Else If N=3 Then K=1 Else: If N=4 Then K=10^-3 Else: If N=5 Then K=10^-2
MsgBox (L * K)
End Sub