Пользовательская функция с выбором аргументов

Function SS(k1 As Double, k2 As Double, k3 As Double, k4 As Double, k5 As Double, t1 As Integer, t2 As Integer, t3 As Integer, t4 As Integer, t5 As Integer) As Double
SS = ((k1 * t1) + (k2 * t2) + (k3 * t3) + (k4 * t4) + (k5 * t5)) / 100
    End Function

Function SS(k1 As Double, t1 As Integer, Optional k2 As Double = 0, Optional t2 As Integer = 0, Optional k3 As Double = 0, Optional t3 As Integer = 0, _
        Optional k4 As Double = 0, Optional t4 As Integer = 0, Optional k5 As Double = 0, Optional t5 As Integer = 0, Optional k6 As Double = 0, Optional t6 As Integer = 0, _
        Optional k7 As Double = 0, Optional t7 As Integer = 0, Optional k8 As Double = 0, Optional t8 As Integer = 0, _
        Optional k9 As Double = 0, Optional t9 As Integer = 0, Optional k10 As Double = 0, Optional t10 As Integer = 0) As Double
    SS = ((k1 * t1) + (k2 * t2) + (k3 * t3) + (k4 * t4) + (k5 * t5) + (k6 * t6) + (k7 * t7) + (k8 * t8) + (k9 * t9) + (k10 * t10)) / 100
End Function

Function SS(ParamArray kt()) As Double

Function SS(ParamArray tk()) As Double
    Dim i As Integer
    For i = 0 To UBound(tk) - 1 Step 2
       SS = SS + (tk(i) * tk(i + 1))
    Next i
End Function

Function SS(ParamArray tk()) As Double
    Dim i As Integer
    For i = 0 To UBound(tk) - 1 Step 2
       SS = SS + ((tk(i) * tk(i + 1))) / 100
    Next i
End Function

Sub SpecifyDescriptions()
    Dim арг1 As String, арг2 As String
    Dim арг3 As String, арг4 As String (и так далее)
        арг1 = "концентрация"
        арг2 = "время"
        арг3 =  "концентрация"
         арг4 =  "время"
        Application.MacroOptions _
            Macro:="EXTRAELEMENT", _
            Description:=арг1, _
            ArgumentDescriptions:=Array(арг2, арг3, арг4)
End Sub

Sub Ф_SS()
Dim ФИМЯ As String 'Название функции
Dim ФОПИС As String 'Описание функции
Dim ФКАТ As String 'Категория для функции
Dim Arg1 As String, Arg2 As String'Аргументы функции
ФИМЯ = "ЗАПАС"
ФОПИС = "Функция вычисляет то то"
ФКАТ = "ЛАБ"
Arg1 = "концентрация"
Arg2 = "время"
Application.MacroOptions Macro:=ФИМЯ, Description:=ФОПИС, Category:=ФКАТ, ArgumentDescriptions:=Array(Arg1, Arg2)
End Sub