SwapVar

Private Sub Swap(a, b)
a = a Xor b
b = a Xor b
a = a Xor b
End Sub