Imports System

Public Module Module1

    Public Sub Main()

        dim day as DateTime = DateTime.Now

        Console.Write("Today it's my favorite day" & day.ToString("dd-MM-yyyy"))

    End Sub

End Module