Из дюймов в метры. Длина отрезка задана в дюймах (1дюйм=2,54см). Перевести значение длины в метрическую систем - VB

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

Из дюймов в метры. Длина отрезка задана в дюймах (1дюйм=2,54см). Перевести значение длины в метрическую систему, то есть выразить е в метрах, сантиметрах и миллиметрах. Так, например, 21 дюйм = 0 м 53 см 3,4 мм. Заранее спасибо.

Решение задачи: «Из дюймов в метры. Длина отрезка задана в дюймах (1дюйм=2,54см). Перевести значение длины в метрическую систем»

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

                            Private Sub Form_Load()
    Dim d#, s$, v
    While d < 1: d = Val(InputBox("Введите дюймы:", , 21)): Wend
    d = d * 2.54 * 100 \ 1
    For Each v In Array("мм. ", "см. ", "м. "): s = d Mod 100 & v & s: d = d \ 100: Next
    MsgBox s
    End
End Sub
                        