Помогите с VBA

[Дмитрий Огнев]

Не знаю, как сделать так, чтобы при выборе хендай, выдавал 300(цена), хонда 200, форд100 и как вписать в прогу строку СТОИМОСТЬ, чтобы она считала (цена*срок) и выдавала сразу в ячейку

Книга

Private Sub Workbook_Open()
Worksheets("Лист1").Activate
Load UserForm1
Application.Caption = "Оплата занятий детского клуба"
UserForm1.ComboBox1.List = Array("хендай", "хонда", "форд")
UserForm1.ComboBox1.ListIndex = 0
UserForm1.Show
End Sub

Private Sub CommandButton1_Click()
Dim фио As String * 50
Dim марка As String * 10
Dim цена As String * 50
Dim дата As String * 11
Dim срок As String * 3
Dim стоимость As String * 3
Dim НомерСтроки As Integer
НомерСтроки = Application.CountA(ActiveSheet.Columns(2)) + 1
With UserForm1
фио = .TextBox1.Text
дата = .TextBox2.Text
срок = .TextBox3.Text
марка = .ComboBox1.Text
цена = IIf(.ComboBox1.Value = хендай, "200", "300")
End With
With ActiveSheet
Cells(НомерСтроки, 1).Value = фио
Cells(НомерСтроки, 2).Value = марка
Cells(НомерСтроки, 3).Value = цена
Cells(НомерСтроки, 4).Value = дата
Cells(НомерСтроки, 5).Value = срок
Cells(НомерСтроки, 6).Value = стоимость
End With
End Sub
Private Sub CommandButton2_Click()
UserForm1.Hide
'Application.Caption = Empty
Worksheets("Лист1").Activate
End Sub

Private Sub SpinButton1_SpinUp()
    TextBox2.Text = DateValue(TextBox2.Text) + 1
End Sub

Private Sub SpinButton1_SpinDown()
    TextBox2.Text = DateValue(TextBox2.Text) - 1
End Sub

Private Sub UserForm_Initialize()
    TextBox2.Text = Date
End Sub