How can I replace multiple occurences of Chr(13) with a
single Chr(10)?

The cells I'm working with have more than one Chr(13) and
I want to replace them with a single Chr(10).
The cells looks like:
some text Chr(13)
Chr(13)
some more text, more text Chr(13)
Chr(13)
Chr(13).

Selection.Replace will let me change a single occurence of
Chr(13) but I can't figure out how to get it to accept
more than one. I can accomplish this by using the MID
statement but that is very slow. All the multiple
occurences are in a single column.

Your assistance is greatly appreciated,
Dan