Imports System

  Public Module Module1

​

Public Sub Main()

​

dim Todayis as date = date.Now

​

dim x as string = "ddd MM yy"

​

Console.WriteLine("today is {0}",Todayis.ToString(x))

​

End Sub

​

End Module