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