Записать в переменную текущую строку из RichTextBox

Public Function GetLine(ByVal strString As String, ByVal lngPos As Long) As String
If InStr(1, strString, vbCrLf) Then
If lngPos < Len(Left(strString, InStr(1, strString, vbCrLf))) Then
GetLine = Left(strString, InStr(1, strString, vbCrLf))
Else
For lngPos = lngPos To 1 Step -1
If Mid(strString, lngPos, 2) = vbCrLf Then
If InStr(lngPos + 2, strString, vbCrLf) Then GetLine = Mid(strString, lngPos + 2, InStr(lngPos + 2, strString, vbCrLf) - lngPos) Else GetLine = Mid(strString, lngPos + 2, Len(strString) - lngPos)
Exit Function
End If
Next
End If
Else
GetLine = strString
End If
End Function
 
 
Private Sub Form_Load()
For i = 1 To 20
RichTextBox1.Text = RichTextBox1.Text & vbNewLine & String(i, CStr(i))
Next
End Sub
 
Private Sub RichTextBox1_Click()
MsgBox GetLine(RichTextBox1.Text, RichTextBox1.SelStart)
End Sub

Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" 
       (ByVal hwnd As Long, _
        ByVal wMsg As Long, _
        ByVal wParam As Long, _
        ByVal lParam As Long) As Long
 
Public Const EM_LINEINDEX = &HBB
Public Const EM_LINELENGTH = &HC1
Public Const EM_GETLINE = &HC4
 
 
'...
 
        iChar& = Me.RichTextBox1.SelStart
         
        YY& = 1 + Me.RichTextBox1.GetLineFromChar(iChar&)
               
        lp& = SendMessage(Me.RichTextBox1.hwnd, EM_LINEINDEX, ByVal -1&, ByVal 0&)
 
        cLen& = SendMessage(Me.RichTextBox1.hwnd, EM_LINELENGTH, ByVal lp&, ByVal 0&)
        
        StrTxt$ = Mid$(Me.RichTextBox1.Text, lp& + 1, cLen&)