怎么使光标移动到text box文本的最后面？

如何使光标移动到text box文本的最后面？？
我有如下代码，
private   sub   text1_change()

        If   Len(Text1.Text)   =   4   Or   Len(Text1.Text)   =   7   Then
                                Text1.Text   =   Text1.Text   +   "- "
        End   If
end   sub
目的，输入形如 "2007-01-16 "的日期字符串时自动加上中间的     －    


问题   :在执行程序后光标跑到了文件本框的最前面,我想让光标自动定位到输入字符串的最后一个字符后面,例如:输入了 "2007 "后文本框内的字符自动变成了 "2007- "但光标是在2的前面,我想把它放到 "- "的后面,哪位大侠可以指点一下,先谢过了!!!


------解决方案--------------------
Text1.SelStart = Len(Text1.Text)
------解决方案--------------------
答案已经给出，专门负责接分。。
------解决方案--------------------
潜力帖......
------解决方案--------------------
Text1.SelStart = Len(Text1.Text)
------解决方案--------------------
Text1.SelStart = Len(Text1.Text)

------解决方案--------------------
楼主太有钱了，偶也来分点，凑个热闹