Saisir no téléphone dans textbox

Bonjour,

Dans mon UF j'ai un TextBox pour un numéro de téléphone.

Ce que je voudrais, c'est que quand l'employé inscrit les chiffres, le tout s'affiche
automatiquement dans ce format (450) 111-1111

J'ai essayé ça :
'Private Sub TextBox_tel_Change()
'TextBox_tel.Text = Format(TextBox_tel.Text, "(000) 000-0000")
'End Sub
ça ne fonctionne pas, car quand on entre le premier no le chiffre s'en va à la fin du textbox et la suite dans le textbox suivant!

Merci