Extraire le jour, le mois et l’année dans trois textbox indé

Bonsoir, je viens encore une fois vers vous car je pense que ce qui est pour moi un grand problème sera pour vous un petit problème !

Alors j'aimerai que quand je clic sur le calendrier de mon formulaire la date apparaisse sur la textbox1 et extraire le jour, le mois et l'année dans les trois autres texbox's. Merci

Bonsoir

Remplaces la macro actuelle par celle-ci

Private Sub Calendar1_Click()
  Me.TextBox1 = Format(Calendar1, "dd/mm/yyyy")
  Me.TextBox2 = Day(Calendar1)
  Me.TextBox3 = Month(Calendar1)
  Me.TextBox4 = Year(Calendar1)
End Sub

Merci, encore une fois nickel !