怎么在文本框中的一句文字中用回车键使它分成两段

如何在文本框中的一句文字中用回车键使它分成两段？
比如：
        点击帖子右上的“管理”链接，进入管理页面，在要给分的回复后的文本框中填写分数，然后输入自己的密码，点击“给分”按钮。
        点击帖子右上的“管理”链接，进入管理页面，在要给分的回复后|的文本框中填写分数，然后输入自己的密码，点击“给分”按钮。
        点击帖子右上的“管理”链接，进入管理页面，在要给分的回复后
        的文本框中填写分数，然后输入自己的密码，点击“给分”按钮。

而且回车后裂开的那段文字开头也空两格。

[解决办法]
设计时：text1.multiline=true
text1.text = left(text1.text, 20) & vbcrlf & " " & mid(text1.text, 21)

[解决办法]
text1.text = left(text1.text, 20) & vbcrlf & " " & mid(text1.text, 21)
文本框一行字又不一定是20个的，怎么让它灵活点，这在windows记事本中是个很普通的功能嘛。
===========================================================================
配合Text1.SelStart使用
[解决办法]
Option Explicit

Private Declare Function SendMessage Lib "user32 " Alias "SendMessageA " (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Const EM_GETSEL = &HB0
Const EM_LINEFROMCHAR = &HC9
Const EM_LINEINDEX = &HBB

Public Sub GetPos(ByVal hwnd5 As Long, LineNo As Long, ColNo As Long)
Dim i As Long, j As Long
Dim lParam As Long, wParam As Long
Dim k As Long
i = SendMessage(hwnd5, EM_GETSEL, wParam, lParam)
j = i / 2 ^ 16 '取得目前光标所在位置前有多少个Byte
LineNo = SendMessage(hwnd5, EM_LINEFROMCHAR, j, 0) '取得光标前面有多少行
LineNo = LineNo + 1
k = SendMessage(hwnd5, EM_LINEINDEX, -1, 0)
'取得目前光标所在行前面有多少个Byte
ColNo = j - k + 1
End Sub

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then
Dim i As Long, j As Long
GetPos Text1.hwnd, i, j
Text1 = Left(Text1, (i - 1) * Text1.MaxLength + j - 1) + " " + Right(Text1, Len(Text1) - (i - 1) * Text1.MaxLength - j + 1)
Text1.SelStart = (i - 1) * Text1.MaxLength + j - 1
End If
End Sub


这个只对英文支持,由于中文占两个字节,所以你要改一下GETPOS函数,自己做吧
[解决办法]
Text1.Text = Left(Text1.Text, Len(Text1.Text) / 2) & vbCrLf & " " & Mid(Text1.Text, Len(Text1.Text) / 2 + 1)

这样就是从中间截取 不知道符不符合楼主的要求啊
[解决办法]
Private Function strLeft(str As String, nLen As Long) As String
If nLen <= 0 Then
strLeft = " "
Else
strLeft = Left(str, nLen)
End If
End Function

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
KeyAscii = 0
Text1.Text = strLeft(Text1.Text, Text1.SelStart) & vbCrLf & " " & LTrim(Mid(Text1.Text, Text1.SelStart + 1))
End If
End Sub