Como saber cuando se paso por un salto de linea RichTextBox?

[pkj]

Creo que una vez que tienes la posicion del texto buscado:

PosicionTexto=instr(1,richtextbox1.text,"TextoBusc ado")

puedes contar los saltos de linea que hay en la parte anterior a ese texto con una funcion como esta:


Function ContarSaltos(byval cadena as string) as double
Dim Contador as double
Dim Posicion as double

Repite:
posicion=instr(posicion+1,cadena,vbcrlf)
if posicion<>0 then
contador=contador+1
goto repite
end if
ContarSaltos=Contador
End Function

Y usarla así:

SaltosQueHay=ContarSaltos(left$(RichTextBox1.text, PosicionTexto-1))

Lo he hecho al vuelo y no lo he probado, pero creo que funcionará.

Saludos