Imports System.Collections.ObjectModelModule MainClass Public Sub Main() Dim date1 As New Date(2010, 8, 18) Console.WriteLine(date1.ToString()) End SubEnd Module