Private Sub Command1_Click()
a = Val(Text2.Text)
Text2.Text = Text1.Text
Text1.Text = a
End Sub