Действительно базовый код, но вы можете сделать что-то вроде
где вам нужно будет поменять 2009, 08, 30 на год, месяц, день истечения срока действия
Dim theDate : theDate = Now()
Dim Result : Result = false
if Year(theDate) <= 2009 then
if Month(theDate) <= 08 then
if Day(theDate) <= 30 then
Result = true
end if
end if
end if
if Result then
'Date is still valid do your code
else
'Date is NOT valid do your code
end if