Mega Code Archive

 

Categories / VisualBasic Script / Data Type

 

Function Parameter type

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