Add time interval to a date

Dim MyDate, MyReturn
MyDate = "January 11, 1981"
MyReturn = DateAdd("YYYY", 29, MyDate)
MsgBox MyReturn