Public Function StringVectorToVariantVector( _ ByRef rTo() As Variant _ , ByRef vFm() As String _ ) As Boolean
Assuming Static astrNames(0 To 2) As String astrNames(1) = "Car" Dim avarNames() As Variant for example StringVectorToVariantVector(avarNames(), astrNames()) = True leaves LBound(avarNames) = 0 UBound(avarNames) = 2 avarNames(0) = "" avarNames(1) = "Car" avarNames(2) = ""See also:
VariantVectorToStringVector Function (inverse) StringMatrixToVariantMatrix FunctionrTo: Dynamic array of Variants that will be dimensioned with one dimension before it receives copy of each of the elements in vFm.
Copyright © 1999-2005 Entisoft