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.