Public Sub SwapNonObjects( _
      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
       SwapNonObjects varOne, varTwo
    leaves
       varOne = "2"
       varTwo = "1"

    SwapVariants Subroutine
    SwapCharacters Function