Hola mi problema hoy es que necesito buscar una palabra exacta en un texto y que devuelva un valor booleam Verdadero si encuentra la palabra y sino que devuelva falso..Haber si me pueden ayudar a realizar la función que necesito Gracias de Antemano

Gracias pero ya no es necesario ya consegui hacer la funcion aqui esta

Function BuscarTexto(Texto As String, Busqueda As String) As Boolean
Dim i As Integer
i = InStr(1, Texto, Busqueda)
If i > 0 Then
BuscarTexto = True
Else
BuscarTexto = False
End If
End Function

Iniciado por Xtreme

Gracias pero ya no es necesario ya consegui hacer la funcion aqui esta

Function BuscarTexto(Texto As String, Busqueda As String) As Boolean
Dim i As Integer
i = InStr(1, Texto, Busqueda)
If i > 0 Then
BuscarTexto = True
Else
BuscarTexto = False
End If
End Function

Gracias!... justo lo q necesitaba..

La utilice para buscar coincidencias en un campo de un datagrid...

Código:

Dim i As Integer
 
For i = 0 To Me.dgvDatos.RowCount - 1
   If BuscarTexto(Me.dgvDatos.Rows(i).Cells("TextoTesis").Value.ToString, Me.txtContenido.Text.Trim) Then
                dgvDatos.Rows(i).DefaultCellStyle.BackColor = Color.Yellow
            End If
        Next