Поменять местами две переменные , без использования третьй

Dim A As Long, B As Long
A = 3517
B = 2498
A = A * B
B = A / B
A = A / B
Debug.Print A; Tab; B

Зачем же тратить лишние машинные такты на умножение и деление, ведь можно же так:

Dim A As Long, B As Long
A = 3517
B = 2498
A = A + B
B = A - B
A = A - B
Debug.Print A; Tab; B

А еще лучше сделать так:

Dim A As Long, B As Long
A = 3517
B = 2498
A = A Xor B
B = B Xor A
A = A Xor B
Debug.Print A; Tab; B

А помойму лучше сделать такую процеДУРКУ:

 
Public Sub Swap (V1 As Variant, V2 As Variant)
    Dim Mk As Variant
    Mk = V2
    V2 = V1
    V1 = Mk
End Sub

Вставив раз забудешь, как делать по другому