Private Sub Command1_Click()
Text2 = Text1

End Sub

Private Sub Command2_Click()
Text1 = Text2

End Sub

Private Sub Command3_Click()
Text1 = ""
Text2 = ""

End Sub

Private Sub Command4_Click()
End

End Sub