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