Comment comparer une date entrée par un utilisateur à celle d'aujourd'hui ?

sub ComparaisonDates()
 Mavaleur = CDate(InputBox("Saisissez votre date"))
 If Mavaleur > Date Then
 SupInf = " est postérieur à aujourd'hui, "
 ElseIf Mavaleur  SupInf = " est antérieur à aujourd'hui, "
 Else: SupInf = " c'est aujourd'hui, "
 End If
 MsgBox "le " & Mavaleur & SupInf & Date
 end sub