Private Sub TextBox1_Change()
Dim Texte As String
Dim t1 As String
Dim t2 As String
Texte = TextBox1.Text
Select Case Len(Texte)
Case 0
Texte = Texte & '('
End Select
t1 = TextBox1.Text
Select Case Len(Texte)
Case 4
t1 = t1 & ')'
End Select
t2 = TextBox2.Text
Select Case Len(Texte)
Case 9
t2 = t2 & '-'
End Select
TextBox1.Text = Texte
End Sub