Try
                For Each sFile As String In My.Computer.FileSystem.GetFiles( _
                  SearchDIR, FileIO.SearchOption.SearchAllSubDirectories, _
                  Extension)
                    lst.Add(sFile)
                Next
            Catch ex As UnauthorizedAccessException
                Debug.Print(ex.Message)
            End Try