¿Cómo hacer una Macro para calcular el subtotal: Unitat por Preu?

Te anexo la macro para calcular el textbox3 * textbox4

Private Sub CommandButton2_Click()
'Por.DAM
    'Introduir ticket
    c = validatext
    If c <> "" Then
        MsgBox "Introducir los siguientes datos: " & c
        TextBox2.SetFocus
        Exit Sub
    End If
    Set h2 = Sheets("Temporal")
    u = h2.Range("A" & Rows.Count).End(xlUp).Row + 1
    '
    'val3 = Val(TextBox3, ",")
    val3 = Replace(TextBox3, ",", ".")
    val4 = Replace(TextBox4, ",", ".")
    val5 = Val(val3) * Val(val4)
    'val5 = Format(val5, "#.00")
    'val5 = Replace(val5, ".", ",")
    '
    h2.Cells(u, "A") = TextBox2
    h2.Cells(u, "B") = Val(val3)
    h2.Cells(u, "C") = Val(val4)
    h2.Cells(u, "D") = val5
    TextBox6 = ""
    limpiartext 5
    h2.Columns("B:B").NumberFormat = "General"
    Cargarlist
    TextBox2. SetFocus
End Sub

Saludos.Dante Amor