There is nothing built in that will format it. You have to do it manually, as you have done. You could probably compress that code somewhat.
ThisCallerID = "1234567890"
ThisFormattedID = "(" + ThisCallerID.Left(3) + ") " + ThisCallerID.Middle(3,3)+ " " + ThisCallerID.Right(4)