Private Shared Function GetLatestExcelFileInDir(ByVal dir As String) As String

            Dim dirInfo As System.IO.DirectoryInfo
            Dim files As System.IO.FileInfo()
            Dim datesAndNames As String()
            Dim dt As DateTime

            Try
                'Get directory info of dir
                dirInfo = New System.IO.DirectoryInfo(dir)
                'Get excel files in dir
                files = dirInfo.GetFiles("*.xls")
                'Create string array to hold file names and dates
                datesAndNames = New String(files.Length - 1) {}

                'Enumerate through files
                For i As Integer = 0 To files.Length - 1
                    'Get creation date of file
                    dt = files(i).CreationTime
                    'Store creation date and file name in one text field
                    datesAndNames(i) = dt.ToString("yyyy/MM/dd HH:mm ") & files(i).FullName
                Next

                'Sort the array (ends up sorting by date)
                Array.Sort(datesAndNames)

                'Return file name with date trimmed off
                Return datesAndNames(files.Length - 1).Substring(17)

            Catch ex As Exception
                Throw (New Exception)
            End Try
        End Function