Buscar palabra dentro de una variable

[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")