参考答案

Private Sub Text1_Change()
    Text2.Text = Text1.Text
End Sub