Перевод запрошенной массы тела в килограммах в выбранную единицу массы - VB

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

Создать приложение, реализующее выбор пользователем единицы массы (килограмм, миллиграмм, грамм, тонна, центнер) и перевода запрошенной массы тела в килограммах в выбранную единицу массы.

Решение задачи: «Перевод запрошенной массы тела в килограммах в выбранную единицу массы»

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

                            Dim coef(4)
 
Sub calc()
If IsNumeric(Text1) Then
    Text2 = Val(Text1) * coef(Combo1.ListIndex) & " " & Combo1
Else
    Text2 = ""
End If
End Sub
 
Private Sub Combo1_Click()
Call calc
End Sub
 
Private Sub Text1_Change()
Call calc
End Sub
 
Private Sub Form_Load()
coef(0) = 0.001: Combo1.AddItem "ГІГ®Г*Г*Г*"
coef(1) = 0.01: Combo1.AddItem "Г¶ГҐГ*ГІГ*ГҐГ°"
coef(2) = 1: Combo1.AddItem "ГЄГЁГ«Г®ГЈГ°Г*Г¬Г¬"
coef(3) = 1000: Combo1.AddItem "ГЈГ°Г*Г¬Г¬"
coef(4) = 1000000: Combo1.AddItem "Г¬ГЁГ«ГЁГЈГ°Г*Г¬Г¬"
Combo1.ListIndex = 2
Text1 = ""
End Sub
                        