VBA: Remove line in cell if substring present

[jadgon]

I am looking for a VBA code to remove line in cell if given substring "tiger" present.
Also if I give special character or combination of numbers it should do the same.
An example is below:

Input Example (Column A1)	Output Example (Column B1)
Eat healthy What ! you saw a tiger 2What is that ? A tiger ()I live in England Eat an apple everyday. What	Eat healthy ()I live in England Eat an apple everyday. What
Eat healthy What ! you saw a tiger 2What is that ? A tiger Eat healthy What ! you saw a tiger 2What is that ? A tiger ()I live in England Eat an apple everyday. What ()I live in England	Eat healthy Eat healthy ()I live in England Eat an apple everyday. What ()I live in England Eat an apple everyday. What

[arnelgp]

one of those sample.