Compare the Two Date

Dim MyDate, MySysDate
MySysDate = Date
MsgBox MySysDate
MyDate = "January 11, 1981"
MyReturn = CDate(MyDate)
MsgBox MyReturn
StrDateCompare = DateDiff("yyyy", MyReturn, MySysDate)
MsgBox StrDateCompare