Module Tester Public Sub Main() Dim sDate As String = "8/1/86" Dim dtDate As Date = CDate(sDate) sDate = "Tuesday, September 16, 1845 6:45pm" dtDate = CDate(sDate) Console.WriteLine("Date now holds {0}", dtDate) End Sub End Module
Date now holds 16/09/1845 6:45:00 PM