ParamArrayを用いたサンプルプログラム

ParamArrayの使い方を知らなかったのでサンプル．

Option Explicit
' 平均を求めるAverageメソッド
Public Function Average(ParamArray Data()) As Double
  Dim i As Variant

  For Each i In Data
    Average = Average + i
  Next i

  Average = Average / (UBound(Data) + 1)
End Function

Private Sub Test()
  Debug.Print Average(1, 2, 3, 4, 5)
End Sub

Test() を実行後のイミディエイトウィンドウ

3