[Resolvido]encontrar palavra dentro de uma frase

viva,
há alguma função que permita encontrar palavra dentro de uma frase ?

a função instr retorna o índice da ocorrência de um determinado caratere.


eu pretendo verificar se uma palavra existe (ou não) dentro de uma frase.

Existe alguma solução "simples" ou tenho de usar a função instr e ir "contando" e "comparando"  cada letra que encontrar a seguir ?



Exemplo da frase: "Rui Manuel de Oliveira Pereira, Pinheiro, 2490, Ourém, Portugal"

Agora para encontrar a palavra "2490" uso a função Instr ?

Já procurei no "buscar" mas não encontrei nada...

Alguém tem uma ideia?

Ok, "BRIGADÍSSIMO", Avelino!

    Vou experimentar, (isso não me tinha passado pela cabeça..)

    A verdade é que quero ver se há algum registo cujo campo se encontra numa celula/área de excel.
(podem ser moradas, escolas, nomes, notas, enfim...  e estou a testar o que é que cada uma tem....)

Código:


<pre>

Public Function a_celula_e_uma_escola(ByVal v As String) As Boolean
   'Dim a_celula_e_uma_escola As Boolean
   a_celula_e_uma_escola = False
   Dim cursor_escola As DAO.Recordset
   Dim texto As String
   Set cursor_escola = BaseDeDados.OpenRecordset("Escola")
   While Not cursor_escola.EOF
      texto = cursor_escola.Fields(1).Value
    <b> If (InStr(texto, v) > 0) Then </b>
           CODIGO_ESCOLA = texto
           a_celula_e_uma_escola = True
       End If
       cursor_escola.MoveNext
   Wend
   
End Function

</pre>


é mais ou menos isto....

Olá pessoal. Usei o código abaixo disponibilizado pelo Avelino e funciona perfeitamente para encontrar uma palavra específica dentro do texto.
Agora preciso que ao localizar a palavra substiua por outra. A outra palavra já tenho armazezada em uma variável.

Alguém sabe como fazer?


If instr(me!NomeCampoFrase,"2490") > 0 then
msgbox "existe..."
end if

Conseguiu uma solução, ficou assim:

minhaCaixaDeTexto = Replace(minhaCaixaDeTexto , "fraseDoTexto", "NovaFrase")