我用VB打开并重写后（unicode方式），生成的XML文件成了unicode编码文件，这样在IE中打开就会报错，请问如何解决。

VB部分原程序如下
    Dim s1 As String, ls_Content1() As String
    Open App.Path & "\xml\userquery.temp" For Input As #1
    s1 = StrConv(InputB(LOF(1), #1), vbUnicode) '将文件内容附给变量 S
    Close #1
    ls_Content1 = Split(s1, vbCrLf) '将每一行的信息放入数组
    lx_max1 = UBound(ls_Content1)
    tabl = ls_Content1(1)
    Text1 = ls_Content1(2)
    Text2 = ls_Content1(3)
    Open App.Path & "\xml\c.xml" For Append As #1 '追加
    For i = 4 To lx_max1
        Print #1, ls_Content1(i) '第五行
    Next i
    Close #1

报错：
无法显示 XML 页。
使用 XSL 样式表无法查看 XML 输入。请更正错误然后单击 刷新按钮，或以后重试。

--------------------------------------------------------------------------------

文本内容中发现无效字符。处理资源 'file:///C:/Documents and Settings/chu/桌面/usbIic72/xml/c.xml' 时出错。第 23 行，位置: 25

  <HeaderFont FontName="

就这么多