Dim TextDateiInhalte As String
 
        Using myReader As New System.IO.StreamReader("C:\Ressourcen.xml")
            TextDateiInhalte = myReader.ReadToEnd
        End Using
        Dim altertext As String = "xmlns=" & _
          """http://tempuri.org/ArrayOfItemInfo.xsd"""
        Dim neuertext As String = "xmlns:xsi=" & _
        """http://www.w3.org/2001/XMLSchema-instance""" & " xmlns:xsd=" & _
        """http://www.w3.org/2001/XMLSchema"""
 
 
        TextDateiInhalte = TextDateiInhalte.Replace(altertext, neuertext)
 
        Using myWriter As New System.IO.StreamWriter("C:\Ressourcen.xml", False)
            myWriter.Write(TextDateiInhalte)
        End Using