По введённому номеру еденицы перевести в метры - VB

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

Написать программу, которая по введённому номеру еденицы измерения (1-дециметр, 2-километр, 3-метр, 4-миллиметр, 5-сантиметр) и длине отрезка L выдавала бы соответствующиее значение длины отрезка в метрах. Использоваь оператор выбора. Вот, что получилось у меня:

Option Explicit
Public Sub Command1_Click()
 Dim k As Integer
 Dim L As Integer
 Dim a As Integer
 
 k = Val(L)
 a = Val(Text2)
 
 Select Case a
 Case 1: k = k / 10
 Case 2: k = k * 1000
 Case 3: k = k
 Case 4: k = k / 1000
 Case 5: k = k / 100
 
 End Select
 Text3 = k

End Sub
 
Private Sub Form_Activate()
Print "1 - дециметр, 2 - километр, 3 - метр, 4 - миллиметр, 5 - сантиметр"
End Sub

Решение задачи: «По введённому номеру еденицы перевести в метры»

textual
                            Листинг программы 
                        
                            k=k*10^choose(a,-1,3,0,-3,-2)