Imports System

Public Module Module1

    Public Sub Main()

        dim myday as Datetime = Datetime.Now

        Console.WriteLine(myday.ToShortDateString())

        Console.WriteLine("Today, its my favorite day")

    End Sub

End Module