Умножение многих значений сразу при расчетах по формуле - VB

Private Sub Command1_Click()
    Dim a As Double, b As Double, c As Double, d As Double
    Dim e As Double, f As Double, k As Double, l As Double
    b = Val(Replace(Text2.Text, ",", "."))
    c = Val(Replace(Text3.Text, ",", "."))
    d = Val(Replace(Text4.Text, ",", "."))
    e = Val(Replace(Text5.Text, ",", "."))
    f = Val(Replace(Text6.Text, ",", "."))
    k = Val(Replace(Text7.Text, ",", "."))
    l = Val(Replace(Text8.Text, ",", "."))
 
    a = (((((b / c) / d) / e) / f) / k) / l
 
    Text1.Text = a
End Sub