URGENTE: Como buscar en un rich text box pero si no hay resultados de un error

[CICOLO_111234]

Hola

Bueno, queria saber con URGENCIA como hacer para buscar en un rich text box pero k si no se encuentra la palabra que busca de un error (por ejemplo: NO SE ENCUENTRA LA PALABRA).

Gracias

[CICOLO_111234]

x favor, si me lo decis para el jueves mejor

es urgente

[Karcrack]

Que te parece si no metes prisas?

Bueno, una forma, lo pongo para textbox, no creo que tengas problemas en adaptarlo:

Código (vb) [Seleccionar] Expandir

    'InStr devuelve la posicion de una string dentro de otra string...
    'vbTextCompare indica que no sera CaseSensitive
    If InStr(1, Text1.Text, "PALABRA", vbTextCompare) <> 0 Then
        MsgBox "La palabra se ha encontrado"
    Else
        MsgBox "Esta palabra no esta..."
    End If

[& eDu &]

Hola

Bueno, queria saber con URGENCIA como hacer para buscar en un rich text box pero k si no se encuentra la palabra que busca de un error (por ejemplo: NO SE ENCUENTRA LA PALABRA).

Gracias

También puedes usar un error resume next
es decir:

Código (vb) [Seleccionar] Expandir


On Error Resume Next
'Código de busqueda
Error:
MsgBox "No se encontró la palabra"

[CICOLO_111234]

muchas gracias!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!