Imports System

Public Module Module1

    Public Sub Main()

        Dim today as datetime = datetime.now 

        Dim T as strimg="dd-MM-yyyy"

        Console.Write(today.ToString(T))

    End Sub

End Module