Dim a = 1, b = 2
Swap(a, b)