Изменять значение в одном TextBox-e изменяя значение в другом TextBox-e - VB

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

Дорого времени стуок. Написал небольшую прогу, но на последнем этапе возникли небольшие загвоздки. Вот сама прога:

Option Explicit
Dim v As Double 
Private Sub Form_Load()
      Combo1.AddItem "Листовая сталь", 0
      Combo1.AddItem "Уголок", 1
      Combo1.AddItem "Швеллер", 2
End Sub
 
Private Sub Combo1_Click() 'выбор типа проката
'*******************************************
'ГІГ®Г«Г№ГЁГ*Г* Г¬ГҐГІГ*Г«Г«Г* Г¤Г«Гї Г«ГЁГ±ГІГ®ГўГ®Г© Г±ГІГ*Г«ГЁ
Text1.Text = ""
Text2.Text = ""
Combo2.Clear
If Combo1.ListIndex = 0 Then
Combo2.Text = "Г‚Г»ГЎГҐГ°ГЁГІГҐ ГІГ®Г«Г№ГЁГ*Гі Г¬ГҐГІГ*Г«Г«Г*"
Combo2.AddItem "2", 0
Combo2.AddItem "3", 1
Combo2.AddItem "5", 2
End If
'*******************************************
'ГІГ®Г«Г№ГЁГ*Г* Г¬ГҐГІГ*Г«Г«Г* Г¤Г«Гї ГіГЈГ®Г«ГЄГ*
If Combo1.ListIndex = 1 Then
Combo2.Clear
Combo2.Text = "Г‚Г»ГЎГҐГ°ГЁГІГҐ Г¤Г«ГЁГ*Гі ГЇГ®Г«ГЄГЁ"
Combo2.AddItem "15", 0
Combo2.AddItem "20", 1
Combo2.AddItem "25", 2
End If
'*******************************************
'ГІГ®Г«Г№ГЁГ*Г* Г¬ГҐГІГ*Г«Г«Г* Г¤Г«Гї ГёГўГҐГ«Г«ГҐГ°Г*
If Combo1.ListIndex = 2 Then
Combo2.Clear
Combo2.Text = "Г‚Г»ГЎГҐГ°ГЁГІГҐ Г*Г®Г¬ГҐГ° ГЇГ°Г®ГЄГ*ГІГ*"
Combo2.AddItem "В№20", 0
Combo2.AddItem "В№30", 1
Combo2.AddItem "В№40", 2
End If
End Sub
Private Sub Combo2_Click()
Text1.Text = ""
Text2.Text = ""
v = 0
If Combo1.ListIndex = 0 Then
Select Case Combo2.ListIndex
      Case 0:     v = 10
      Case 1:     v = 20
      Case 2:     v = 30
End Select
End If
If Combo1.ListIndex = 1 Then
Select Case Combo2.ListIndex
      Case 0:     v = 100
      Case 1:     v = 200
      Case 2:     v = 300
End Select
End If
If Combo1.ListIndex = 2 Then
Select Case Combo2.ListIndex
      Case 0:     v = 1000
      Case 1:     v = 2000
      Case 2:     v = 3000
End Select
End If
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
      Text2.Text = ""
   Select Case KeyAscii
      Case 48 To 57, 8
      Case 44, 46
         KeyAscii = 46
            If InStr(Text1.Text, ".") <> 0 Then
            KeyAscii = 0
         End If
      Case Else
         KeyAscii = 0
   End Select
   Text2.Text = Val(Text1.Text) * v
End Sub

Вроде бы всё нормально, НО... не получается сделать следующее: 1. При изменении (вводе) значения в TextBox1 почему-то происходит изменение значения в TextBox2 следующим образом - Если выбрать "Листовую сталь"->"Толщину -2" и ввести в TextBox1 - "1", то в поле TextBox2 выводится - "0", хотя (вроде как) должно быть - "1"; 2. Может будут какие нибудь ещё советы и дополнения, буду очень благодарен. Спасибо всем откликнувшимся.

Решение задачи: «Изменять значение в одном TextBox-e изменяя значение в другом TextBox-e»

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

                            Private Sub Form_Load()
Combo1.List = Array("Листовая сталь", "Уголок", "Швеллер")
'      Combo1.AddItem "Листовая сталь", 0
'      Combo1.AddItem "Уголок", 1
'      Combo1.AddItem "Швеллер", 2
End Sub
                        