Imports System

Public Module Module1

    Public Sub Main()

        Dim value =     (New DateTime(2023, 6, 2, 15, 57,0)).Date.ToString("MM/dd/yyyy hh:mm:ss tt")

        Console.WriteLine(value)

        Dim purchaseDate As Date  = #6/2/2023 03:57:00 PM#

        Console.WriteLine(purchaseDate.Date.ToString("MM/dd/yyyy hh:mm:ss tt"))

    End Sub

End Module