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