Files - Swappare Due Variabili

Visual # Sub Swappa(X As Variant, Y As Variant)
Dim K As Variant
K=X
X=Y
Y=K
End Sub