Olá, montei um formulario com um campo de pesquisa, onde meu objetivo é colocar o que eu quero pesquisar (uma palavra), ele procurar, achar a palavra, e assim que achar me informar alguns dados referentes ao que encontrou, como o que diz na celula do lado, e também marcar onde foi encontrado a palavra que quis pesquisar, no momento está assim:

Private Sub ButtonPesquisar_Click()
'Aqui é selecionado a Planilha com seus dados (Plan1) no nosso exemplo
    With Plan1.Range("D7:D50")
 
        'Aqui onde será digitado o que procurar

        Set C = .Find(textcarro.Text)
 
        'Aqui outra tomada de decisão, caso encontre sua pesquisa, será retornado nas caixas de textbox.
        If Not C Is Nothing Then
        
            MsgBox ("Este carro já está substituido no momento."), vbOKOnly, ("Pesquisa de Carros")
 
            'Fim da Pesquisa
        End If
 
        'Tomada de decisão em caso de não haver nenhum resultado
        If C Is Nothing Then
 
            'Sua mensagem ao usuário aqui
            MsgBox ("Este carro NÃO foi substituido até o momento."), vbOKOnly, ("Pesquisa de Carros")
        End If
 
        'Fim da Pesquisa
    End With

Realmente não sei como fazer essas implementos que citei. Obrigado desde já