AFFICHAGE DU JOUR DE NAISSANCE

Private Sub load_form()
Dim Datenaissance 
Dim Message, Titre As String
Message = "date de naissance?"
Titre = "Entrez votre date de naissance!"
Datenaissance = InputBox (Message, Titre)
If Datenaissance <> "" Then 
Datenaissance = Format (Datenaissance, "Long Date")
MsgBox Datenaissance, vbOkOnly + vbInformation, "vous êtes né(e) le"
End 
Else
While Datenaissance = ""
MsgBox "entrez une date", vbOkOnly + vbExclamation, "Attention!!!"
Datenaissance = InputBox(Message, Titre)
Wend
Datenaissance = Format (Datenaissance, "Long Date")
MsgBox Datenaissance, vbOkOnly + vbInformation, "vous êtes né(e) le"
End
End If
End Sub