Here is crystal basic code I had to create in order to format a number into a proper telephone format.
If(Length(Replace(LEFT(CStr({CustomerOrders.PhoneNumber}),LENGTH(Cstr({CustomerOrders.PhoneNumber}))-3),",","")) > 9) THEN
Picture(Replace(LEFT(CStr({CustomerOrders.PhoneNumber}),LENGTH(Cstr({CustomerOrders.PhoneNumber}))-3),",",""),"(xxx) xxx-xxxx")
ELSE
Replace(LEFT(CStr({CustomerOrders.PhoneNumber}),LENGTH(Cstr({CustomerOrders.PhoneNumber}))-3),",","")
If anyone has a better method I would love to see it.