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

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&)