One example is not usually all that all that helpful in describing one's data. For example, is the phone number always at the end of the text? Is the phone number always shown without dashes or parentheses? Does the word "Phone" alway precede the phone number? Along with many other questions as well...
Function PHONE(s As String) As String
Dim RX As Object: Set RX = CreateObject("VBScript.RegExp")
Dim pat As String: pat = "\d{10}"
With RX
.Pattern = pat
.Global = True
.MultiLine = True
.ignorecase = True
PHONE = .Execute(s)(0)
End With
End FunctionIf you assume the example is a good representation, then I would suggest this function instead
Function PHONE(S As String) As String
PHONE = Right(S, 10)
End Function| WCW ORGANIZATION INC. : Email- rooz51@gmail.com : Phone- 3108455117 |
| 420 FOR THE PEOPLE COOPERATIVE INC : Stash Studio City : Email- 420forthepeople@gmail.com : Phone- 8188105353 |
| POINT BAY DISTRIBUTORS, LLC : Point Bay Distributors, LLC : Email- info@pointbaydist.com : Phone- 8505103483 : Website- https://www.pointbaydist.com/ |
| KALI BOTANICALS : Kali Botanicals : Email- kalibotanicals213@gmail.com : Phone- 9512646666 |
It appears that your phone numbers are always 10 digits long with no dashes or parentheses and always follow the text "Phone- ". You could use the function that lrobbo314 posted, but another function that would also work is this...
Function PHONE(s As String) As String
PHONE = Left(Split(s, "Phone- ")(1), 10)
End Function
