Buscar palabra dentro de una variable

[german_martin]

Amigos,
Como hago para encontrar una palabra dentro de una variable?

Ejemplo:

Tengo la variable Var1 = "Cuando enciendo mi celular aparece un Error"
Tengo la otra Var2 = "Todo esta bien"

Necesito buscar dentro de esas variables la palabra Error, si la encuentra que me responda True si no False

Var1 = True
Var2 = False

Gracias!!!

[Avellaneda]

Podrías crearte una función como esta:

Código:

Function BuscarPalabra(sTexto As String, sCar As String) As Boolean
Dim i As Integer
i = 1
Do Until i <= 0
    i = InStr(1, sTexto, sCar)
    If i > 0 Then
        sTexto = Left$(sTexto, i - 1) & Right$(sTexto, Len(sTexto) - (i - 1) - Len(sCar))
        BuscarPalabra = True
    End If
Loop
End Function

y llamarla así:

Dim var1 As String, var2 As String
var1 = "Cuando enciendo mi celular aparece un Error"
var2 = "Todo esta bien"
MsgBox BuscarPalabra(var1, "Error")
MsgBox BuscarPalabra(var2, "Error")

[Txoco]

Qué tal?

La función InStr es suficiente, puesto que si devuelve un valor superior a cero es que la cadena existe.

Código:

Dim var1 As String, var2 As String
var1 = "Cuando enciendo mi celular aparece un Error"
var2 = "Todo esta bien"

    Call MsgBox(Instr(1, var1, "error", vbTextCompare) > 0)  ' Devuelve True
    Call MsgBox(Instr(1, var2, "error", vbTextCompare) > 0)  ' Devuelve False

El último parámetro debe ser necesariamente vbTextCompare en este caso, porque por defecto es vbBinaryCompare; la diferencia es que en comparación de texto no es sensible a mayúsculas ("error" = "ERROR"), mientras que en comparación binaria sí que lo es ("error" <> "Error").

[german_martin]

Una maravilla señores
Desde ya MUCHAS GRACIAS!!!
Fue justo y exactamente lo que necesitaba.