Public Function ArgumentsToVariant( _ ParamArray vArgs() As Variant _ ) As Variant
Assuming Dim varArray As Variant for example varArray = ArgumentsToVariant(12, 34, 56, "Word") leaves LBound(varArray) = 0 UBound(varArray) = 3 varArray(0) = 12 varArray(1) = 34 varArray(2) = 56 varArray(3) = "Word"See also:
StringToVariantVector Function CVarIgnErr Function NOP Subroutine CVar Function (Visual Basic)vArgs: One or values of any type. Each of the arguments will become one of the elements of an array that is returned by the function.
Copyright 1996-1999 Entisoft
Entisoft Tools is a trademark of Entisoft.