Public Shared Function DateToString( ByVal d As Date ) As String

If d > Date .MinValue AndAlso d < Date .MaxValue Then