Как получить номер строки в TextBox - VB

Private Declare Function SendMessage Lib "user32" _
   Alias "SendMessageA" _
  (ByVal hWnd As Long, _
   ByVal wMsg As Long, _
   ByVal wParam As Long, _
   ByVal lParam As Any) As Long
 
Const EM_LINEFROMCHAR = &HC9
 
Private Sub Text1_Click()
Dim retval As Long
' Определяем номер строки
retval = SendMessage(Text1.hWnd, EM_LINEFROMCHAR, -1, ByVal CLng(0)) + 1
Print retval
End Sub