Simple visual basic script in Excel

I would like someone to write a VB macro for me that searches each cellin a sheet and deletes the contents if the cell if it does not contain a certain string.

Anticipating it would take someone who knows VB well less than 15 minutes as it is very simple