Compare Any Date To Today's Date In Code

With the expiry date as currently set, the code should show the second message box but it shows the first instead.

Sub datechange()

Dim expiry As Date
Dim now As Date

'This line sets the expiry date as 1/5/2006
expiry = DateSerial(2006, 5, 1)

If now < expiry Then
MsgBox "Your subscription will expire in May 2007"

Else
MsgBox "Your subscription has expired"

End If
End Sub