One way is to use FixedPoint with a pure function as in:
FixedPoint[ StringReplace[#, {Whitespace ~~ "IN" ~~ (Whitespace | EndOfString) -> " ", Whitespace ~~ "CO" ~~ (Whitespace | EndOfString) -> " "}] &, "A CO IN"]
Thanks a lot. Excellent answer as always, David.
