LINQ VB.Net

Imports System.IO
Imports System.Reflection
Imports System.Linq
Imports System.Xml.Linq
Public Class MainClass
   Public Shared Sub Main
        Dim y = Year(Now)
        Dim m = Month(Now)
        Try
            Dim MeetingDates(5) As Date
            For i = 0 To UBound(MeetingDates)
                MeetingDates(i) = New Date(y, m, CInt((Date.DaysInMonth(y, m) - 1) * Rnd() + 1))
            Next
            Dim CommonDates = From day2 In MeetingDates _
                              Order By day2 _
                              Select day2 Distinct
            For Each d In CommonDates
                Console.WriteLine(Format(d, "MM/dd/yy"))
            Next
        Catch ex As Exception
            Stop
        End Try
   End Sub
End Class