Private Sub Command1_Click()Text1.Text = ""① End SubPrivate Sub Text1_Change()② Text2.Text = Text1.Text