Macro that removes word based on characters in cell

Hello All. Could someone show me a macro that will remove the word "CRISP" from all cells that have over 25 characters in Row A. If the cell has 25 characters or less than then it does nothing. A space would be considered a character.