public class Test public Shared Sub Main Dim dteExpiration As Date dteExpiration = #1/1/2004# Console.WriteLine(dteExpiration) End SubEnd class 01/01/2004 12:00:00 AM