Imports System.Globalization
Module MainClass
Public Sub Main()
Dim dateValue As Date
Dim dateString As String = "2/16/2010 12:15:12 PM"
dateString = "2/16/2008"
Try
dateValue = Date.Parse(dateString)
Console.WriteLine("'{0}' converted to {1}.", dateString, dateValue)
Catch e As FormatException
Console.WriteLine("Unable to convert '{0}'.", dateString)
End Try
End Sub
End Module