Imports System

Imports System.Collections.Generic

Public Module Module1

        Public  Sub Main()

        Dim list As new List(of Date)

​

        Dim fecha as Date = Date.ParseExact(New Date(2019,5,9), "dd MMM yy HH:mm", Globalization.CultureInfo.InvariantCulture)

        Console.WriteLine(fecha)

        list.add(New Date(2019,5,9))

         list.add(New Date(2019,5,9))

         list.add(New Date(2019,5,01))

         list.add(New Date(2019,5,25))

         list.add(New Date(2019,5,13))

         list.add(New Date(2019,5,30))

         list.add(New Date(2019,5,9))

        list.Sort()

        Dim myFormat = "dd MMM yy HH:mm"

        For Each item As Date In list

        Console.WriteLine(item.ToString(myFormat)) 

        Next

    End Sub

End Module

​

​