Namespace ConsoleApplication
Class Program
Private Shared Sub Main(args As String())
Dim dayMonthYear = DateTime.Now.ToString("dd/MM/yyyy")
Console.WriteLine("Day/Month/Year : {0}", dayMonthYear)
Console.ReadKey()
End Sub
End Class
End Namespace
Result
------ Day/Month/Year : 18/08/2016