Imports System

Public Module Module1

    Public Sub Main()

        dim today as DateTime = DateTime.Now

        dim x as string = "dd MMM yy HH:mm tt"

        console.Write(today.ToString(x))

    End Sub

End Module