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
Bookmarks