[VBA-Excel] Référence à l'objet et non à sa propriété par défaut

Bonjour,

Je veux mettre en place une réaction à un événement de type Change à
plusieurs TextBox.

La réaction est un Sub avec comme paramètre un objet TextBox,
par exemple ici pour sauter automatiquement le 3e caractère :

Sub TextBox_DateMask_Change( aoTextBox As TextBox)
With aoTextBox
If .SelStart = 3 Then .SelStart = 4
End With
End Sub

Dans UserForm1 , je place un TextBox1 et gère l'événement Change :

Private Sub Jour1TB_Change()
TextBox_DateMask_Change (Jour1TB)
End Sub

A l'exécution, il me dit "Erreur 424 : objet requis".

Je pense que c'est parce qu'il passe la propriété de TextBox par défaut
"Text" de type String,
alors que le Sub attend un objet.

Comment passer une référence sur l'objet, et non sa propriété ??

Merci

--
** Anti-Spam : ajouter [usenet] dans l'objet pour ne pas être rejeté.

Cordialement, Stéphane *** http://www.team-santonum.com
Loisirs, nature, arts, technologie : accueil en Charente-Maritime