Phone # Format

[cvegas]

I have this working but would like to display the [BusinessPhone] in a
standard format like
(800)888-8888

Set objItem = spObj.CreateItem(olTaskItem)
strSubject = "Call " & Forms![Prospect Contact Popup Form For All
Contacts]![FirstName] & _
" " & Forms![Prospect Contact Popup Form For All
Contacts]![BusinessPhone] & " about " & _
Forms![Prospect Contact Popup Form For All Contacts]![ShowName]

Any help would be appreciated.

 

[Chuck]

Hi,
Try this for the Phone Number part of your code:
" (" & Left([Prospect..]![BusinessPhone],3) & ") " & Mid
([Prospect..]![BusinessPhone],4,3) & "-" & Mid
([Prospect..]![BusinessPhone],7) & " about " ...

Good luck!