Взаимосвязь Combobox и Textbox - VB

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

Здравствуйте! Проблема в слудующем. В программе нужно сделать следующее. Чтобы в нескольких тексбоксах при выборе одного варианта данные вбивались автоматически. (Это я смог сделать) И чтобы при выборе другого варианта можно было вводить в текстбоксы свои данные. По нажатии кнопки считаются формулы. Вот кусок с переменными.

Private Sub Combo3_Click()
Select Case Combo3.ListIndex
   'Автоматический ввод
   Case 0:      
               r1 = 5.2            'Потери в устройствах сложения
                 r3 = 1.5            'Потери в подводящем кабеле
                r4 = 74.5           'Поперечные потери в ИРК
                d = 40              'мощность передатцика стационарной станции РВС'
                e = -110            'чувствительность приёмника возимой станции РВС'
                f = 40              'мощность передатцика возимой станции РВС'
                g = -113            'чувствительность приёмника стационарной станции РВС'
    
    'Самостоятельный ввод'
    Case 1:      ?????????        
  
End Select
End Sub

Вот часть которая считает по формулам

Private Sub Command1_Click()
Text9.Text = (l * 0.026) / 2 ' Продольные потери в щелевом кабеле
Text1.Text = r1 + Text9.Text + r3 + r4
'Text4.Text = r + ((l * 0.026) / 2)
Text2.Text = d - Text1
Text3.Text = Abs(e - Text2)
Text5.Text = f - Text1       'уровень сигнала у станционной станции ТЕТРА'
Text6.Text = Abs(g - Text5)
Text7.Text = d
Text8.Text = r1
Text10.Text = r3
Text11.Text = r4
Text12.Text = f
Text13.Text = l
Text14.Text = g
Text15.Text = e

очень нужна помощь. Спасибо!

Решение задачи: «Взаимосвязь Combobox и Textbox»

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

                            Private Sub Combo3_Click()
Select Case Combo3.ListIndex
   'Автоматический ввод
   Case 0:
              Text8.Text = 5.2            'Потери в устройствах сложения
              Text10.Text = 1.5            'Потери в подводящем кабеле
               Text11.Text = 74.5           'Поперечные потери в ИРК
               Text7.Text = 40              'мощность передатцика стационарной станции РВС'
               Text15.Text = -110            'чувствительность приёмника возимой станции РВС'
                Text12.Text = 40               'мощность передатцика возимой станции РВС'
                Text14.Text = -113            'чувствительность приёмника стационарной станции РВС'
     
End Select
End Sub
 
    Private Sub Command1_Click()
   End Sub
 
Text9.Text = (l * 0.026) / 2 ' Продольные потери в щелевом кабеле
 r1 = Val(Text8.Text)
r3 = Val(Text10.Text)
r4 = Val(Text11.Text)
 d = Val(Text7.Text)
e = Val(Text15.Text)
 f = Val(Text12.Text)
g = Val(Text14.Text)
Text1.Text = r1 + Text9.Text + r3 + r4
'Text4.Text = r + ((l * 0.026) / 2)
Text2.Text = d - Text1
Text3.Text = Abs(e - Text2)
Text5.Text = f - Text1       'уровень сигнала у станционной станции ТЕТРА'
Text6.Text = Abs(g - Text5)
Text13.Text = l '  ???
                        