Public Sub SwapVariants( _ ByRef rOne As Variant _ , ByRef rTwo As Variant _ )
Integer and Variant with Integer value. String and Variant with String value. Double and Variant with Long value. Variant with Integer value and Variant with String value.Example:
Assuming Dim varOne As Variant Dim varTwo As Variant varOne = "1" varTwo = "2" for example SwapVariants varOne, varTwo leaves varOne = "2" varTwo = "1"See also:
SwapNonObjects Subroutine SwapCharacters FunctionrOne: Value which is to be swapped with that of rTwo.
Copyright 1996-1999 Entisoft
Entisoft Tools is a trademark of Entisoft.