VBA fuctions

Function nos(r As Range) As Long
Dim i As Long, s As String
For i = 1 To Len(r.Value)
    If IsNumeric(Mid(r.Value, i, 1)) Then s = s & Mid(r.Value, i, 1)
Next i
If s = "" Then
    nos = 0
Else
    nos = CLng(s)
End If
End Function

Function Digits(ByVal S As String) As Long
  Dim x As Long
  For x = 1 To Len(S)
    If Not Mid(S, x, 1) Like "#" Then Mid(S, x) = " "
  Next
  Digits = Replace(S, " ", "")
End Function

http://www.mrexcel.com/forum/showthread.php?t=560077

[COLOR="Blue"]Function[/COLOR] ExtractDigits(Str [COLOR="Blue"]As[/COLOR] [COLOR="Blue"]String[/COLOR]) [COLOR="Blue"]As[/COLOR] [COLOR="Blue"]String[/COLOR]
    Application.Volatile
    [COLOR="Blue"]Dim[/COLOR] m [COLOR="Blue"]As[/COLOR] [COLOR="Blue"]Object[/COLOR]
    [COLOR="Blue"]With[/COLOR] CreateObject("VBScript.RegExp")
        .Global = [COLOR="Blue"]True[/COLOR]
        .Pattern = "\d+"
        [COLOR="Blue"]For[/COLOR] [COLOR="Blue"]Each[/COLOR] m [COLOR="Blue"]In[/COLOR] .Execute(Str)
            ExtractDigits = ExtractDigits & m.Value
        [COLOR="Blue"]Next[/COLOR]
    [COLOR="Blue"]End[/COLOR] [COLOR="Blue"]With[/COLOR]
[COLOR="Blue"]End[/COLOR] [COLOR="Blue"]Function[/COLOR]