This is probably due to your new system using different regional settings! Change:
.Text = "([^13]{2}[!^13]{1;})^13"
to:
.Text = "([^13]{2}[!^13]{1;})^13"
or:
.Text = "([^13]{2}[!^13]@)^13"
The last version should work regardless of your regional settings.
__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]
|