Module Example Public Sub Main() Dim customFormat As String = "MMMM dd, yyyy (dddd)" Dim date1 As Date = #8/28/2009# Console.WriteLine(date1.ToString(customFormat)) End SubEnd Module