Public Sub SetVariants( _
      ByRef rDest As Variant _
    , ByRef rSrc 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.

    Assuming
       Dim varOne As Variant
       Dim varTwo As Variant
       varOne = "1"
       varTwo = "2"
    for example
       SetVariants varOne, varTwo
    leaves
       varOne = "2"
       varTwo = "2"

    SwapVariants Function