Add to a date

[craig_phillips2]

Can anybody tell me how to add to a date. I think the dates are actually stored as doubles but what i want to know is what a

second, minute, hour, day, month or year would be.

i have the following

Dim oldDate as Date

If Now() < oldDate + [what i want to add to the date] Then
  DoEvents
End If

Hope you can help