Mois en numérique dans textBox

Bonjour a tous
Je souhaiterai savoir comment avoir le mois en numérique dans une textbox
J’ai une textbox qui me donne la date du jour et je souhaiterai savoir comment récupérer le mois en numérique dans une 2em textbox ; je sais le faire a partir des cellules =SI(D4="";"";MOIS(D4)) mais pas en VBA

Exemple TextBox1 : 14/09/2011 TextBox2 : 9

J’espère avoir été claire dans ma demande

Si besoin je ferais parvenir le classeur
Cordialement
accoman