Imports System.Globalization
Imports System.Threading
Module DateToStringExample
Public Sub Main()
Dim currentCulture As CultureInfo = Thread.CurrentThread.CurrentCulture
Dim exampleDate As Date = #05/01/2010 6:32:06PM#
Console.WriteLine(exampleDate.ToString())
End Sub
End Module