Imports System.Globalization
Module MainClass
Public Sub Main()
Dim date1 As Date
Console.Write(date1)
If date1.Equals(Date.MinValue) Then _
Console.WriteLine(" (Equals Date.MinValue)")
End Sub
End Module