怎么解决读取xml里的中文的乱码问题

Question

<?xml version="1.0" standalone="yes"?>
<NewDataSet>
  <Table>
    <xingming>戴晨歌</xingming>
    <xingbie>男</xingbie>
    <chushengriqi>1984-06-24T00:00:00+08:00</chushengriqi>
    <canjiagongzuoriqi>2006-07-22T00:00:00+08:00</canjiagongzuoriqi>
</Table>
</NewDataSet>
我这样写代码怎么会出现乱码问题呢
Dim str As String
Open App.Path & "\sy.xml" For Input As #1
Do While Not EOF(1)
str = str & input(1, #1)
Loop
Close #1
Text1.Text = str

Answer 1

<?xml version="1.0" encoding="GBK" standalone="yes"?>