如何使多行文本框在用程序添加内容时，总能使用户看到添加的内容（即滚动条始终处于最下端）？

第一种方法：
Private Sub Text1_Change()
   Text1.SelStart = Len(Text1.Text)
End Sub
好像当文本框的内容达到一定程度时，不再管用（好像是len函数的原因吧）。第二种方法：
Private Sub Text1_Change()
      Text1.SetFocus
      SendKeys "^{END}"
End Sub
时不时获得焦点很烦人，特别是做别的事情的时候！有没有更好的方法？？？