Private Sub Text1_Change()
Dim s As String
s = ""
Text2.Text = s + Text1.Text
End Sub


ghjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjj
jjjjjjjjjjjjjjjj