RichTextBox: Leer texto de cierta linea...

[pkj]

Por otro lado tengo que decir que la sub del compañero culd me cuesta entenderla.

Para mentes más simples como la mía he creado esta sub y le he añadido la ventaja de que no esté limitada al RTBx 'R1', sino que es general y se puede usar con cualquier richtextbox del programa.

Private Sub SeleccionarLinea(ByVal NumeroDeLinea As Double, TextBox As RichTextBox)

¡¡ FUNCION CORREGIDA MÁS ABAJO !!

End Sub

Para usarlo con TextBox en lugar de RichTextBox solo hay que cambiar la declaración:

Private Sub SeleccionarLinea(ByVal NumeroDeLinea As Double, TextBox As TextBox)

Saludos