On Fri, 2 Oct 2009 02:54:01 -0700, Faraz A. Qureshi
wrote:

Any UDF code to have entries like following:

1234Text
12Text34
Text1234

be converted to:

1234
1234
1234

Thanx in advance!

=====================
Function Nums(s As String)as String
Dim re As Object
Set re = CreateObject("vbscript.regexp")
re.Global = True
re.Pattern = "\D+"
Nums = re.Replace(s, "")
End Function
========================

Note that by returning the result as String, leading zero's can be retained. If
this is not wanted or desireable, then return result as Long or as Double.
--ron