Public Sub Swap(a, b)
Dim c
c = a: a = b: b = c
End Sub