Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If Len(TextBox1) = 0 Then TextBox1.Text = "(" End If If Len(TextBox1) = 3 Then TextBox1.Text = TextBox1 & ") " End If If Len(TextBox1) = 9 Then TextBox1.Text = TextBox1 & " - " End If End Sub