Variable number of parameters
Function sum(ParamArray x()) Dim var For Each var In x() sum = sum + var Next var End Function