Function myFunction(ParamArray myNumbers() As Variant)
Dim mySum As Single
Dim myValue As Variant
For Each myValue In myNumbers
mySum = mySum + myValue
Next
myFunction = mySum
End Function
Sub arrayPara()
MsgBox myFunction(1, 2, 3)
End Sub