Private Sub Form1_Load()
Dim tal1 As Integer
Dim tal2 As Integer
tal1 = 10
tal2 = 20

tal1 = tal1 Xor tal2
tal2 = tal2 Xor tal1
tal1 = tal1 Xor tal2

MsgBox(tal2)

End Sub