basQBForVB.bas

Attribute VB_Name = "basQBForVB"
Public Sub Swap(a As Variant, b As Variant)

    Dim c As Variant

    c = a
    a = b
    b = c

End Sub