Private Function cfi(ByVal fi1 As IO.FileInfo, ByVal fi2 As IO.FileInfo) As _
      Integer
        Return fi1.LastWriteTime.CompareTo(fi2.LastWriteTime)
    End Function
 
    Private Sub Test()
        Dim lofi As New List(Of IO.FileInfo)
        lofi.AddRange(New IO.DirectoryInfo("C:\").GetFiles())
        lofi.Sort(New System.Comparison(Of IO.FileInfo)(AddressOf cfi))
        DataGridView1.DataSource = lofi
    End Sub

Those people who think they know everything are a great annoyance to those of us who do - Isaac Asimov