Imports System Imports System.Globalization Imports Microsoft.VisualBasic Public Class SamplesDTFI Public Shared Sub Main() Dim myDTFI As DateTimeFormatInfo = New CultureInfo("en-US", False).DateTimeFormat Dim myDT As New DateTime(2010, 1, 3) Console.WriteLine(" D {0}", myDT.ToString("D", myDTFI)) End Sub End Class