Current system date over the set date not work

when less 10,09,2009 or 20,09,2009 over current system date then msg.....

'date = current system date

dim startDate,endDate

startDate = CDate("10/09/" & Cstr(Year(TodayDate)))
eDate = CDate("20/09/" & Cstr(Year(TodayDate)))

if startDate < date or endDate > date then
msgbox "10 day over plz update"
else
msgbox "welcome to start"
end if

Plz any Solution or Solve problem

Thanks

'date = current system date

dim startDate,endDate

startDate = CDate("10/09/" & Cstr(Year(TodayDate)))
eDate = CDate("20/09/" & Cstr(Year(TodayDate)))

if startDate < date or endDate > date then
msgbox "10 day over plz update"
else
msgbox "welcome to start"
end if

Change This

eDate = CDate("20/09/" & Cstr(Year(TodayDate)))

To This

endDate = CDate("20/09/" & Cstr(Year(TodayDate)))

Then try running your code