I think AddYear is what you are looking for Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim dte As Date
dte = Convert.ToDateTime("01-Jan-08").AddYears(30)
MessageBox.Show(dte.ToString("dd-MMM-yy"))
End Sub