用vb6修改ini文本内容后，全部显示乱码

把ini改为txt也一样，哪位高手可以帮忙看下哪里出错或给个实例？
文本是Unicode编码的。更改文本第5行。
Dim ini As String, i As Long
Open "c:\windows\succeed\embird.ini" For Input As #1
Open "c:\windows\succeed\embird2.ini" For Output As #2
Do While Not EOF(1)
  Line Input #1, ini
  i = i + 1
  If i = 5 Then ini = "ICONIZER_3D=1"
  Print #2, ini
Loop
Close