Dim DT As ArrayList
        Public Function Search_Save()
            DT = New ArrayList
            If Directory.Exists("SaveIcons") Then
                Dim sFile As String
                Dim sPath As String
                sPath = Application.StartupPath & "\SaveIcons\"
                For Each sFile In My.Computer.FileSystem.GetFiles(sPath, _
                  FileIO.SearchOption.SearchTopLevelOnly, "*.xml")
                    Try
                        Dim po As XElement = XElement.Load(sFile)
                        Dim Re As XElement = po.Element("Information")
                        DT.Add({Re.Attribute("Datum").Value, Re.Attribute( _
                          "Auflösung").Value, Re.Attribute("Monitore").Value, _
                          Re.Attribute("Benutzer").Value, sFile, Re.Attribute( _
                          "Icons").Value})
                    Catch
                    End Try
                Next
            End If
            Return DT
        End Function

For each.........
msgbox(... (0), ..(1).... usw.)
next