Module Module1
    Dim XDoc1 As XDocument = XDocument.Load("Z:\temp\config.xml")
    Sub Main()
 
        Dim filelist() As String = Split(XDoc1.<files>.<filelist>.Value, ";")
 
        For i = 1 To filelist.Length
            XDoc1.<files>.< & filelist(i) & >.<fields>.value '<------- das hier 
            ' funktioniert nicht
 
        Next
 
        Dim fileContents As String
        fileContents = My.Computer.FileSystem.ReadAllText("Z:\Temp\PACK.TXT")
 
        Dim variable() As String = Split(fileContents, "", , _
          CompareMethod.Text)
 
        Console.WriteLine(variable.Length)
 
    End Sub
 
End Module