Imports System

Public Module Module1

    Public Sub Main()

        dim myday as Datetime = Datetime.Now

        dim format as string = "dd MM yyy"

        Console.WriteLine(myday.ToString(format))

    End Sub

End Module