Okay.. probably another idiot question.. but.. how do I get back to line1 of a multi line Textbox after sending data from it..?

This is how my code works so far:

Private Sub Text1_KeyPress(KeyAscii As Integer)

If (KeyAscii = 13) Then
strVariabe = Text1.Text
Text1.Text = ""
End If

End Sub

However.. after pressing Return and sending the data to strVariable, and clearing the text box.. it always returns to line2 of the box.. while I want the entry point back at the start of the text box.
I hope this makes sense.. it's driving me crazy!!!