Imports System
Public Module Module1
Public Sub Main()
dim today as datetime = datetime.Now
Console.Write("today is my favorite day")
Console.Write(today.ToString("F"))
End Sub
End Module