VBA Ajouter Evenement sur Object créé dynamiquement

Bonjour,

Je viens de créer des TextBox dynamiquement en fonction du nombre d'enregistrement que l'on me retourne. Pour chaque enregistrement une TextBox est créée.
Ce que je voudrai c'est ajouté un événement à chaque TextBox voila comment j'ai procédé

Dim mdl As Module
Dim lng As Long
Dim Ctl As Control

BODY_EVENT 'Correspond à ma requete

Set mdl = Forms![MONFORMULAIRE].Module
            lng = mdl.CreateEventProc("Click", Ctl.Name)
            mdl.InsertLines lng + 1, _
            vbTab & _
                BODY_EVENT

Du coup ca me créer mon événement pour mes TextBox donc aucun problème.
Alors pourquoi je demande de l'aide me direz-vous?
Et bien voila, lorsque j'exécute mon code ça m'ouvre la fenêtre VB et ça m'affiche mon code du coup les utilisateurs ont complétement libre accès au code étant donné que la page pop devant leur yeux.
Y aurait-il une solution pour bloquer l'ouverture de la page VB tout en ajoutant quand même mes événements pour mes TextBox.

J'espère que quelqu'un pourra m'aider. Merci d'avance