Imports System
Public Module Module1
Public Sub Main()
Dim dt As Date = #11/15/2021#
Dim s As String = CStr(dt)
Console.WriteLine(s)
dt = #11/15/2021 09:45:07 AM#
s = CStr(dt)
Console.WriteLine(s)
End Sub
End Module
' run:
'
' 11/15/2021
' 11/15/2021 9:45:07 AM
'