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.

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

    SwapNonObjects Subroutine
    SwapCharacters Function