Imports System

Public Module Module1

    Public Sub Main()

        Dim Today as DateTime = DateTime.Now

        DIm y as string = "ddd d MM yy"

        console.WriteLine(today.ToString(y))

    End Sub

End Module