Hi,
Try:

Sub RemoveNonNumeric()

Dim projnum as string, newprojnum as string

projnum = "123(45-*Ab345]"
newprojnum = ""

For i = 1 To Len(projnum)
If IsNumeric(Mid(projnum, i, 1)) Then newprojnum = newprojnum + Mid(projnum,
i, 1)
Next i
MsgBox newprojnum
End Sub

"robbywvut@hotmail.com" wrote:

> I am extracting data from a program that collects project data in a
> number of areas.
> The project number is extracted just as it comes out of the program,
> sometime with parentheses , commas, or dashes in between its parts.
> The field the number is input into is a text field.
>
> What I would like to do is to remove all symbols from the number and
> make the number one long string of digits. Is there any way to do
> this?
>
> Thanks in advance for the help.
>
>