Sub varargs(ParamArray a())
    For n = 0 To UBound(a)
        Debug.Print a(n&)
    Next
End Sub