在VB里怎样让文本框得到焦点的时候自动把光标放在最后？

在VB里怎样让文本框得到焦点的时候自动把光标放在所有文字的最后，而不用鼠标点一下了

---

Private Sub Text1_GotFocus()
Text1.SelStart = Len(Text1)
Text1.SelLength = 1
End Sub

---