参考答案

Private Sub Command1_Click()
    'Text2 = Text1.SelText
'或
Me.Text2.Text = Form1.Text1.SelText
End Sub
Private Sub Command2_Click()
    Form1.Text1.SelText = ""
End Sub