Сложить и умножить дробные и целые числа

Dim x, d As Double
  For Each x In Array("PRyaco", 11, 10, 9, 30, 32, 31, 29, 50, 52, 51)
    d = d + Val(Replace(Controls(IIf(IsNumeric(x), "TextBox", "") & x).Text, ",", "."))
  Next
  TextBox45.Text = d * 30

Dim x, d As Double
        For Each x In Arra[U]y[/U](80, 11, 10, 9, 30, 32, 31, 29, 50, 52, 51)
            d = d + Val(Replace(Controls(IIf(IsNumeric(x), "TextBox", "") & x).Text, ",", "."))
        Next
        TextBox45.Text = d * 30

Private Sub Form_Load()
    Dim x, d As Double, s$
    For Each x In Array("PRyaco", 11, 10, 9, 30, 32, 31, 29, 50, 52, 51)
        s = IIf(IsNumeric(x), "TextBox", "") & x
        If MsgBox("Есть ли у вас TextBox с названием " & s, 68) = vbNo Then End
        d = d + Val(Replace(Controls(IIf(IsNumeric(x), "TextBox", "") & x).Text, ",", "."))
    Next
    Text1.Text = d * 30
End Sub

Option Explicit
 
Private Sub Form_Load()
    Const r = 90: Dim x, d As Double, s$, sn$, l&, t&, w&, h&
    On Error Resume Next
    l = r: t = r: w = r * 20: h = r * 4
    For Each x In Array("PRyaco", 11, 10, 9, 30, 32, 31, 29, 50, 52, 51)
        s = IIf(IsNumeric(x), "TextBox", "") & x
        Err.Clear
        If x <> 45 Then d = d + Val(Replace(Controls(s).Text, ",", "."))
        If Err.Number > 0 Then
            If MsgBox("У вас этого компонента на форме нет .. (:  " & s & vbLf & _
            "Давайте его создадим, создать ?", 68) = vbYes Then
                With Controls.Add("vb.textbox", s): .Move l, t, w, h: t = t + h + r
                Do Until IsNumeric(.Text): .Text = InputBox("Число для этого текста ..", , Rnd * 10 - 20):  Loop
                d = d + Val(Replace(Controls(s).Text, ",", "."))
                .Visible = 1
                End With
            Else: End
            End If
        End If
    Next
    With Controls.Add("vb.textbox", "TextBox45"): .Move r * 20 + r, 90, w, h
        .Text = "Сумма = " & d
        .Visible = 1
    End With
End Sub

Dim a1 As Double = TextBox80.Text 
        Dim a2 As Double = TextBox11.Text 
        Dim a3 As Double = TextBox10.Text 
        Dim a4 As Double = TextBox9.Text 
     
        Dim a5 As Double = TextBox30.Text 
        Dim a6 As Double = TextBox32.Text 
        Dim a7 As Double = TextBox31.Text 
        Dim a8 As Double = TextBox29.Text 
       
        Dim a9 As Double = TextBox50.Text 
        Dim a10 As Double = TextBox52.Text 
        Dim a11 As Double = TextBox51.Text 
 
        TextBox45.Text = (a1 + a2 + a3 + a4 + a5 + a6 + a7 + a8 + a9 + a10 + a11) * 30

Option Explicit
Public Function MySumma(N As Double, ParamArray objs() As Variant) As Double
Dim obj As Variant, Sum As Double
Sum = 0
For Each obj In objs
    Sum = Sum + Val(obj)
Next
MySumma = Sum * N
End Function
 
Private Sub Form_Click()
Text45 = MySumma(30, Text80, Text11, Text10  )' и т.д сколько угодно 
End Sub

Public Sub EnableAll(Y As Boolean, ParamArray objs() As Variant)
 
Dim obj As Variant
    For Each obj In objs
        obj.Enabled = Y
    Next obj
   
End Sub