Não sei se entendi, mas experimente alterar na rotina: Private Sub ProcuraPersonalizada(ByVal TermoPesquisado As String)
o trecho conforme abaixo

        'Box com o conteudo encontrado
        TextBox1.Text = Plan2.Cells(MatrizResultados(0), 3).Text
        TextBox2.Text = Plan3.Cells(MatrizResultados(0), 3).Text
        TextBox3.Text = Plan4.Cells(MatrizResultados(0), 3).Text
        t1 = Split(TextBox1.Text, " "): t2 = Split(TextBox2.Text, " "): t3 = Split(TextBox3.Text, " ")
        TextBox4 = (CDbl(t1(0)) + CDbl(t2(0)) + CDbl(t3(0))) & " " & t1(1)

Obrigado por responder Reinaldo
A rotina evidenciada não funciona, diz que não encontra nada. Obrigado.
RM

Estranho, no seu modelo/exemplo (veja anexo) funcionou; fez a alteração? no local correto?

No computador onde me encontro não funciona, mais logo em casa vou verificar, obrigado.

Ainda não funciona
Envio em anexo o aplicativo, lancei o movimento de 01/10/2016 e não aparece, e na aba 026810000015 lança 10/1/2016 acho que o erro está aqui, pode ajudar-me, obrigado.
RM

Desculpe, mas o "problema" está no formulário de procura (frmBusca) ou em outro local? Qual a rotina/formulário envolvido

Boas Reinaldo eu pôs o problema mal. Ou seja, no userform1 lanço nas planilhas 026810000015, 026810000049 e 026810002326 mas na primeira 026810000015 ao lançar com a data 01/10/2016 através do userform1 aparece na planilha como 10/01/2016. O frmBusca vai procurar por data na planilha 026810000015 e seguintes, ora presumo que o erro esteja aqui, mas não consigo resolver. Obrigado.

Veja se esta de acordo com o esperado

Obrigado Reinaldo
Qual a alteração que fez? Obrigado. Funciona.