Are the numbers you want **always** enclosed in parentheses and, if so, will
those parentheses be the only ones ever in the text? If yes, try this...

Function GetNumbers(S As String) As String
Dim X As Long
Dim Nums() As String
Nums = Split(S, "(")
If UBound(Nums) 0 Then
For X = 1 To UBound(Nums)
GetNumbers = GetNumbers & Val(Nums(X))
If X < UBound(Nums) Then GetNumbers = GetNumbers & ";"
Next
End If
End Function

--
Rick (MVP - Excel)


"God Itself" wrote in message
...
Hi

i wrote such a function

Function RemoveLetters(Rng As String) As String
Dim Tmp As String
Dim i As Integer, j As Integer

Tmp = Rng
n = Len(Tmp)

For i = 1 To n - 1

k = Mid(Tmp, i, 1)

For j = 0 To 9
If k < j Or k = ";" Then Tmp = Application.Substitute(Tmp, k, "")
Next j

Next i

RemoveLetters = Tmp
End Function


and i try to remove any letter from string and leave only numbers

but my function does not work correctly

i.e

string in A1: Hardware, and Plumbing and Heating Equipment and Supplies
Wholesalers (4217); Refrigeration Equipment and Supplies Wholesalers
(42174); Warm Air Heating and Air-Conditioning Equipment and Supplies
Wholesalers (42173)

and i receive ,PEqW(2REqW(2WAA-CEqW(23 instead 4217;42174;42173