Does anyone know VB's function for formatting 10 digit phone numbers as follows:

(808) 531-0000

That's if there is one, of course. I have my date format figured out: FormatDate(Now, vbLongDate)

But for the 10-digit phone number it would be REALLY nice if as soon as you typed a number in the beginning parentheses would pop out and close after the third digit is entered. If THAT can't be done intrinsically then I need the easiest way to get a user to type a 10-digit code.