public class Test public Shared Sub Main Dim Expiration As Date Dim NewExpiration As Date Expiration = #1/1/2005# Expiration.AddYears(3) NewExpiration = Expiration.AddYears(3) Console.WriteLine("The new expiration date is: " & NewExpiration) End Sub End class