Format A TextBox For A Phone Number

Greetings,

I am trying to format a TextBox on a UserForm to display a phone
number in xxx-xxx-xxxx format when I exit the TextBox.

Any help would be appreciated.

TIA

-Minitman

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Textbox1.Text = format(textbox1.text,"000-000-0000")
End Sub

--
Regards,
Tom Ogilvy


"Minitman" <exreply@i-m-pNOSPAM.net> wrote in message
news:t3oh0191cn01gd3sri2dm2q78a1r95ik2k@4ax.com...
> Greetings,
>
> I am trying to format a TextBox on a UserForm to display a phone
> number in xxx-xxx-xxxx format when I exit the TextBox.
>
> Any help would be appreciated.
>
> TIA
>
> -Minitman

Thanks Tom,

That will do the trick.

-Minitman

On Tue, 8 Feb 2005 11:15:44 -0500, "Tom Ogilvy" <twogilvy@msn.com>
wrote:

>Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
>Textbox1.Text = format(textbox1.text,"000-000-0000")
>End Sub

Try this-Tested!!:

Private Sub TextBox1_Change()
If Len(TextBox1.Text) = 3 Then
TextBox1.Text = TextBox1.Text & Chr(45)
End If
If Len(TextBox1.Text) = 7 Then
TextBox1.Text = TextBox1.Text & Chr(45)
End If
TextBox1.MaxLength = 12
End Sub

Should you want to apply this to a number of TextBoxes, use the modified
version:

Private Sub FormatText()
Dim ctl As Control
For Each ctl In Me.Controls
If TypeName(ctl) = "TextBox" Then
ctl.MaxLength = 12
If Len(ctl.Text) = 3 Then
ctl.Text = ctl.Text & Chr(45)
End If
If Len(ctl.Text) = 7 Then
ctl.Text = ctl.Text & Chr(45)
End If
End If
Next
End Sub
"Minitman" <exreply@i-m-pNOSPAM.net> wrote in message
news:t3oh0191cn01gd3sri2dm2q78a1r95ik2k@4ax.com...
> Greetings,
>
> I am trying to format a TextBox on a UserForm to display a phone
> number in xxx-xxx-xxxx format when I exit the TextBox.
>
> Any help would be appreciated.
>
> TIA
>
> -Minitman