Imports System

Imports System.Linq

Public Module Module1

    Public Sub Main()

        Dim dates() As String = {"1/1/2021", "", "1/2/2021"}

        Dim orderedValidDates() As DateTime = (From d In dates Where DateTime.TryParse(d.ToString(), Nothing) Order By Date.Parse(d) Select Date.Parse(d)).ToArray()

​

            Dim firstDate As DateTime = orderedValidDates.FirstOrDefault()

        Console.WriteLine(firstDate)

    End Sub

End Module