phone number extraction - 11 digits

Hello there, I've come by this forum by searching ways to extract phone number from chunks of text. I've found a few similar thread here but they have not helped my newbie skills, so would really appreciate some help with this.

I have a field contain text apprx 200 words in each cell. within there are phone numbers - these are of the format 0#### ###### OR 0########## - note both formats start with a zero, contain 11 digits, and the first format has a space in the middle after the first 5 digits.

so far I have:

Function parseNum(strSearch As String) As String

' Dim strSearch As String
'strSearch = "RRP 90 AVE DE GAULLE 92800 PUTEAUX 0109781431-0149012126"

Dim i As Integer, tempVal As String
For i = 1 To Len(strSearch)
If IsNumeric(Mid(strSearch, i, 1)) Then
tempVal = tempVal + Mid(strSearch, i, 1)
End If
Next

parseNum = tempVal
End Function


can you help?

Thanks