Private Sub Insert_Click()<br>
Text1.SelText = Text2.Text<br>
End Sub<br>
<br>
Private Sub Clear_Click()<br>
Text1.Text = ""<br>
End Sub