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