如何小弟我这样的换行，文段老是往下跳

怎么我这样的换行，文段老是往下跳
Private   Sub   Text1_Change()
SendKeys   "^{END} "
End   Sub
Private   Sub   Command2_Click():Rem用一个按钮实现换行
Text1.Text   =   Text1.Text   &   vbCrLf   &   "         "
End   Sub
Private   Sub   Text1_KeyPress(KeyAscii   As   Integer):Rem敲击回车键实现换行
      If   KeyAscii   =   vbKeyReturn   Then
            Text1.Text   =   Text1.Text   &   vbCrLf   &   "         "
      End   If
End   Sub
可是光标怎么不随着输入的字移动，老是在段首闪动。这样回车的话，整段文字就往下跑啦。
怎么解决？

[解决办法]
什么意思 是不是要这样
Private Sub Text1_KeyPress(KeyAscii As Integer) ': Rem敲击回车键实现换行
If KeyAscii = vbKeyReturn Then
KeyAscii = 0
Text1.Text = Text1.Text & vbCrLf & " "
Text1.SelStart = Len(Text1.Text)
End If
End Sub