Imports System.Globalization
Module MainClass
Public Sub Main()
Dim dateStrings() As String = {"2008-05-01T07:34:42-5:00", _
"2008-05-01 7:34:42Z", _
"Thu, 01 May 2008 07:34:42 GMT"}
For Each dateString As String In dateStrings
Dim convertedDate As Date = Date.Parse(dateString)
Console.WriteLine("Converted {0} to {1} time {2}.", _
dateString, _
convertedDate.Kind.ToString(), _
convertedDate)
Next
End Sub
End Module