Option Compare Database
Option Explicit

'--------------------------------------
'DynamicPramTest関数呼出
'--------------------------------------
Function CallDynamicPramTest()

    Dim rt As String
    
    '引数2個設定
    rt = DynamicPramTest("access", "むかむか")

    Debug.Print rt
    
    '引数3個設定
    rt = DynamicPramTest("access", "むかむか", "へっぽこ")
    
    Debug.Print rt

    '引数0個設定
    rt = DynamicPramTest

    Debug.Print rt

End Function

'---------------------------------------------
'関数にn個の引数を指定する
'指定された文字列を結合して返す
'---------------------------------------------
Function DynamicPramTest(ParamArray prmArgs() As Variant) As String

    Dim wk_concat   As String
    Dim i        As Long

    For i = LBound(prmArgs) To UBound(prmArgs)
        wk_concat = wk_concat & prmArgs(i)
    Next

    DynamicPramTest = wk_concat

End Function