Dim xd As New System.Xml.XmlDocument
        Dim sr As New System.IO.StreamReader("C:\Test\invalidXml.notxml")
        Dim notxmlstr As String = sr.ReadToEnd()
        sr.Close()
        xd.LoadXml("<root>" & notxmlstr & "</root>")
        xd.Save("C:\Test\validXml.xml")

        Dim lines As New List(Of String)
        lines.AddRange(Split(notxmlstr, vbCrLf))

        lines.Insert(0, "<root>")
        lines.Insert(lines.Count, "</root>")

        Dim xmlstr As String = Join(lines.ToArray(), vbCrLf)
        Dim sw As New System.IO.StreamWriter("C:\validXml.xml", False)
        sw.Write(xmlstr)
        sw.Close()