急怎么在VBA中创建自动换行的XML文件

急！！！如何在VBA中创建自动换行的XML文件
工程要求从一个原始utf-8格式的xml文件读取数据并生成新的utf-8格式xml文件，由于原始文件有德文，因此用
Open fileName For Append As #1 来生成xml文件，德文就变成了乱码，故用MSXML2.DOMDocument对象来添加，但是最后由个问题就是，生成出来的xml文件时在一行的，用IE打开时换行的，但是用Nodepad++打开却是在一行，请问有什么方法能让它自动换行啊，非常感谢！！

以下是用来测试xml文件ForTest.xml及我自己生成xml文件outPut.xml，为来往方便测试，只留下一个节点，如果有乱码，请忽略。
ForTest.xml:
<?xml version="1.0" encoding="utf-8"?>
<root>
<value>Markieren Sie dieses Kontrollkästchen, um das Herunterladen der E/A-Variablen der CIP-Symbolik zu ermöglichen.</value>
</root>

outPut.xml:
<?xml version="1.0" encoding="utf-8"?>
<root><value>Markieren Sie dieses Kontrollkästchen, um das Herunterladen der E/A-Variablen der CIP-Symbolik zu ermöglichen.</value></root>

Sub CreateXML()

    Dim fileName As String

    Dim objXML As Object

    Set objXML = CreateObject("MSXml2.DOMDocument")

    fileName = "E:\ForTest.xml"

    If Not objXML.Load(fileName) Then

        Err.Raise objXML.parseError.ErrorCode, , objXML.parseError.reason

    End If

        

    Dim point As Object

    Set point = objXML.SelectSingleNode("root")

    Dim attr As Object

    Set attr = point.ChildNodes.Item(0)

    'Debug.Print attr.Text

    

    Dim strOutputPath As String

    strOutputPath = "E:\outPut.xml"

    

    Dim xmldoc, rootNode, Header, messageNode, typeNode As Object

    Set xmldoc = CreateObject("MSXML2.DOMDocument")

    xmldoc.PreserveWhitespace = True

    Set rootNode = xmldoc.createElement("root")

    Set xmldoc.DocumentElement = rootNode

    Set Header = xmldoc.createProcessingInstruction("xml", "version='1.0' encoding='utf-8'")

    xmldoc.InsertBefore Header, xmldoc.ChildNodes(0)

        

    Set messageNode = xmldoc.createElement("value")

    rootNode.appendChild messageNode

    messageNode.Text = attr.Text

    xmldoc.Save strOutputPath

End Sub

------解决方案--------------------
也谢谢你能贴出解决的方法。