Selecionar texto no RichTextBox a partir de um determinado paragrafo e Copiar para outro TextBox todo o restante do texto

Boa tarde, Pessoal!

Preciso de uma ajuda, preciso copiar um trecho inteiro a partir de uma informação, no meu caso a partir do parágrafo que inicia "Procura a escola porque:".
O código deve copiar todo o restante do texto a partir da informação citada em diante.
o código está copiando apenas um trecho de todo o texto para baixo, como eu posso resolver isso.
Na figura publicada, sinalizei em um quadro verde todo o texto que deveria copiar para o outro textbox mas vejam que ele só copiou a metade para o outro textbox que está selecionado em preto.




Alguém, por favor, poderia me ajudar nesse problema.

Segue o código (obs: já tente mudar o sendkey para todo o tipo, mas o problema continua)
Dim iFound As Integer
iFound = InStr(1, Me.RichTextBox, "Procura a escola porque:")
If iFound <> 0 Then
Me.RichTextBox.SetFocus
Me.RichTextBox.SelStart = iFound
SendKeys "{HOME}+{END}+{PGDN}", True
Me.RichTextBox26 = Me.RichTextBox.SelText
Me.RichTextBox26.SetFocus
End If

Agradeço a atenção de todos, muito obrigado.

Veja esse exemplo aqui:

Dim T As String
T = Mid(Me.txt1, InStr(Me.txt1, Me.txtBase), Len(Me.txt1))
Me.txt2 = T


Me.txtBase: É onde eu tenho o Texto a Ser localizado
Me.txt1: é Onde tem todo o Texto a ser analisado
Me.txt2: É onde receberá o Texto Cortado a partir do Valor pesquisado.

Simule o exemplo no clique de um Botão com o Código passado e veja se atende ao que precisa.

Bom dia, Fabio!

Deu certo, apenas fiz incluir mais uma variável passando o valor diretor, mas utilizando o textBox "txtBase" daria certo.

Dim T As String
Dim Recebe As String
Recebe = "Procurou a escola porque:"

T = Mid(Me.RichTextBox, InStr(Me.RichTextBox, Recebe), Len(Me.RichTextBox))
Me.RichTextBox26 = T


Novamente agradeço a atenção.

Aproveitando o trabalho, só uma duvida.

Como eu consigo copiar um trecho do texto De - Até, por exemplo:

- Abaixo eu tenho o texto principal:

Procurou a escola porque: Porque acreditamos que as diretrizes pedagógicas da escola caminham na mesma direção dos valores da nossa família.
Apresentou algum tipo de dificuldade na escola anterior? Não
Sociabilidade Não
Aprendizagem Não
Prática Escolar Inclusiva Não
Acompanhamento Especializado Não
Processo de Inscrição: visita
Visita à Escola (Preferência): Terça: 13h30 às 14h30


- Tipo o código copiaria a partir da descrição Procurou a escola porque: até Aprendizagem

Agradeço pela atenção.

Att,

Ruy Guerra

Experimente a InstrRev()

Dim T As String
T = Mid(Me.txt1, InStr(Me.txt1, Me.txtBase), InStrRev(Me.txt1, Me.txtFimTexto))

me.txtFimTexto seria o Final do Texto.
InStrRev() irá Buscar o valor mas voltando, do final do Texto para o Início.

Obs: Não testei... Pode haver erros no Codigo.