Imports System
Public Module Module1
Public Sub Main()
Dim dt As Date = #11/16/2021#
Console.WriteLine(dt)
Console.WriteLine(dt.Day)
Console.WriteLine(dt.Month)
Console.WriteLine(dt.Year)
End Sub
End Module
' run:
'
' 11/16/2021 12:00:00 AM
' 16
' 11
' 2021
'