Module Tester Public Sub Main() Dim dtNow As Date = Now dtNow = Today Console.WriteLine("Current date: {0}", dtNow) End SubEnd Module Current date: 11/05/2007 12:00:00 AM