Помогите пожалуйста написать код к программе на языке VBA.

Question

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

user_302388630 · Accepted Answer

Sub LengthConverter()
    Dim unit As Integer
    Dim length As Double
    
    unit = InputBox("Введите номер единицы длины (1-5)")
    length = InputBox("Введите длину отрезка в выбранных единицах")
    
    Select Case unit
        Case 1 'дециметр
            length = length / 10
        Case 2 'километр
            length = length * 1000
        Case 3 'метр
            'длина уже в метрах, ничего не делаем
        Case 4 'миллиметр
            length = length / 1000
        Case 5 'сантиметр
            length = length / 100
        Case Else
            MsgBox "Некорректный номер единицы длины!"
            Exit Sub
    End Select
    
    MsgBox "Длина отрезка в метрах: " & length
End Sub