Get the long date formats using the current culture
Imports System.Globalization
Module MainClass
Public Sub Main()
Dim july28 As Date = #7/28/2009 5:23:15#
Dim longJuly28Formats() As String = july28.GetDateTimeFormats("D"c)
For Each format As String In longJuly28Formats
Console.WriteLine(format)
Next
End Sub
End Module