How Do I Replace Text with Number using RegEx?

I have just moved the solution/macro I posted earlier to a new topic. You can find it here:

MACRO: Replace Text with Numbers; OR, Lookup Data Using RegEx [Example]