aとbの値を交換するためのアルゴリズムです。

Sub swap(ByRef a As Long, ByRef b As Long)
Dim temp As Long
temp=a
a=b
b=temp
End Sub

tempを用いない手法もあるみたい…
http://www.dd.iij4u.or.jp/~okuyamak/Information/xor_fixed_swapping.html tempを使わない方法の1つにXORを使った方法がありますが、このようにお勧めではないですよ。他の手法も概ね同じです。