Умножение в проге VBA

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

Надо, чтобы в СТОИМОСТИ, записывалось произведение СРОК НА ЦЕНУ, помогите плиз

Private Sub CommandButton1_Click()
Dim фио As String * 50
Dim марка As String * 10
Dim цена As String * 10
Dim дата As String * 10
Dim срок As String * 10
Dim стоимость As String * 10
Dim НомерСтроки As Integer
НомерСтроки = Application.CountA(ActiveSheet.Columns(2)) + 1
With UserForm1
фио = .TextBox1.Text
дата = .TextBox2.Text
срок = .TextBox3.Text
марка = .ComboBox1.Text
цена = IIf(.ComboBox1.Value = "хендай", "200", "") & IIf(.ComboBox1.Value = "хонда", "300", "") & IIf(.ComboBox1.Value = "форд", "100", "")
With ActiveSheet
Cells(НомерСтроки, 1).Value = фио
Cells(НомерСтроки, 2).Value = марка
Cells(НомерСтроки, 3).Value = цена
Cells(НомерСтроки, 4).Value = дата
Cells(НомерСтроки, 5).Value = срок
Cells(НомерСтроки, 6).Value = стоимость
End With
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