下のようなコードで、TEXT1に入力したテキストを、Enterキーを
押下した際にTEXT2にそのまま貼り付けるようにしています。この
時、TEXT1の内容は ”” でクリアすることにしているんですが、
なぜか最上段にカーソルが来ません（必ず2段目に来ます）。
クリアの際に、常に最上段にカーソルが来るようにするためには、
どうすればいいのでしょうか。よろしくご指導ください。よろしくお願い
します。


Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = vbKeyReturn Then

Text2.Text = Text2.Text + Text1.Text
Text1.Text = ""

End If

End Sub