Se può servirti:

codice:
Dim MyData1 as Date = "28/04/1982"
Dim MyData2 as Date = DateAdd(DateInterval.Month, - 2, MyData1) 'leva 2 mesi
Response.Write(MyData2)