SwapVarAPI

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" _
(Dest As Any, Source As Any, ByVal lNumBytes As Long)

Public Sub SwapStr(Var1 As String, Var2 As String)
Dim lSaveAddr As Long
'Save memory descriptor location for Var1

lSaveAddr = StrPtr(Var1)
'Copy memory descriptor of Var2 to Var1

CopyMemory ByVal VarPtr(Var1), ByVal VarPtr(Var2), 4
'Copy memory descriptor of saved Var1 to Var2

CopyMemory ByVal VarPtr(Var2), lSaveAddr, 4
End Sub