public class Test public Shared Sub Main Dim dteExpiration As Date dteExpiration = Now() Console.WriteLine(dteExpiration) End SubEnd class 11/05/2007 12:30:59 PM