Module Tester Public Sub Main() Dim sDate As String = "8/1/86" Dim dtDate As Date = CDate(sDate) Console.WriteLine("Date now holds {0}", dtDate) End Sub End Module
Date now holds 08/01/1986 12:00:00 AM