Hi cegbuna,

Apologies - the Find/Replace expression I posted is for the reverse of what you're after. Try the following wildcard Find/Replace:
Find = ([!^13]{1,})^13
Replace = ^39\1^39,

After running this, you'll have an extra comma at the end of the data, which you can delete manually.

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]