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