Hola pkj encontra una funcion para contar los saltos con el api Sendmessage lo bueno es que toma en cuenta el vbCrLf y los saltos que realiza el Richtextbox cuando la cadena es un larga.
Código:
Private Declare Function SendMessageLong Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Sub Command3_Click()
MsgBox "Hay " & SendMessageLong(RichTextBox1.hwnd, &HBA, 0&, 0&) - 1 & " salto(s) de línea"
End Sub
Pero no se como pasarle la funcion "BuscaTexto" para que haga la busqueda desde determinada coordena.