COMPARER LA DATE D'ENTRÉE À LA DATE DU JOUR OU SYSTÈME

Private Sub Command1_Click()
   On Error Resume Next
   Dim strDateNais As Date
   strDateNais = Format(Date, "dd/mm/yyyy")
   If txtDateNais <> "" Then cmdNewEncod.Enabled = True
   If Text1 >= strDateNais Then
      MsgBox "La date de naissance n'est pas valide, veuillez insérer une date correcte", vbApplicationModal + vbCritical + vbDefaultButton1 + vbOKOnly, "Date de naissance non valide !"
      Text1.SetFocus
      Text1.Text = ""
      Exit Sub
   Else
      MsgBox "La date d'aujourd'hui a été respectée, la date insérée est : " & Text1.Text, vbApplicationModal + vbDefaultButton1 + vbInformation + vbOKOnly, "Date"
      
      
   End If
End Sub