Substitua o seu código pelo seguinte:

Dim ultimalinha, i As Long 

Label12.Visible = True
TextBox10.Visible = True

    ultimalinha = Sheets("plan1").Cells(Cells.Rows.Count, 3).End(xlUp).Row
    If ultimalinha < 3 Then ultimalinha = 1

        For i = 3 To ultimalinha
            If Sheets("plan1").Range("c" & i) = TextBox19.Text Then
                    TextBox10.Text = Sheets("plan1").Range("d" & i)
                    Exit Sub
            End If
        Next
               

No básico ele percorre a coluna em busca do valor da textbox e ao encontrar o exibe,

Perfeito!

Selmo,

E caso eu quiser somar com condições?

Exemplo:

No textbox1: DIVERSÃO
No textbox2: 25/02/2015

Dai o loop fará algo como o somar produto, onde ele ficará na coluna de centro de custo a variável do textbox1 e na coluna de Programações, a variável do textbox2, feito isso, o código somará os valores da coluna Movimentação, o valor que foi gasto com Diversão nessa data.

Então o uso do controle For é bem abrangente, se combina-la com o If else então poderá testar quantas condiçoes e somar quantos itens achar nescessário, o código seguinte realiza o loop e se o critério for igual então soma

Dim Ultimalinha, i As Long
Dim Soma As Currency

Ultimalinha = Sheets("plan1").Cells(Cells.Rows.Count, 3).End(xlUp).Row
    If Ultimalinha < 3 Then Ultimalinha = 1

        For i = 3 To Ultimalinha
        'Verifica se o conteudo é igual ao da Textbox1 e Textbox 2, se for então realiza a soma
        If Sheets("plan1").Range("B" & i) = TextBox1.Text And Sheets("plan1").Range("A" & i) = TextBox2.Text Then
                 Soma = Sheets("plan1").Range("C" & i) + Soma 'Supondo que o valor esteja na coluna C
        End If
        Next
        Label1.Caption = Format(Soma, "R$ #,##0.00")

Em caso de duvida postei um modelo seguindo a linha de raciocinio.

Selmo,

Desculpa-me pela demora em dar o retorno! Eu só vi agora!

O adaptarei no meu projeto e te falo.

Perfeito!