Removing all NON numbers from a data element

[Magicgate Software - Skip Kimpel]

Hello LC'ers

I have data element that I need to scan for all NON numbers and remove
them.  For instance this data element should read 0123456789 but sometimes
is listed as 0123-4-5678-9 or has foreign characters in it or reads NOT
AVAILABLE.

so:
if item 14 of tLine <> number then....

There are about 500,000 rows of data to go through so my dilemma is to
make the code as efficient as possible.

Thank you for any input you might have!