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