用print打印数据到文本文件如何控制输出文件是asc码还是十六进制数？

我写了个程序，突然写文件用untraedit打开默认为16进制（只要默认是asc码就对了），导致该文本导入其他系统报错。
实在想不通为什么会这样
 Open App.Path & "\tc" & Trim(Text1.Text) & ".txt" For Output As #1
 'Print #1, "ddd"
  Do Until chdata.EOF
   Print #1, chdata!ywtype & Chr(9) & chdata!ywkind & Chr(9) & reformat(chdata!chtaccount, 36, " ") & _
              Chr(9) & chdata!texcode & Chr(9) & chdata!tname & Chr(9) & reformat(chdata!daccount, 36, " ") _
              & Chr(9) & chdata!dhcode & Chr(9) & chdata!DNAME & Chr(9) & chdata!hrcode _
              & Chr(9) & chdata!flag & Chr(9) & chdata!Money & Chr(9) & chdata!warnum _
              & Chr(9) & chdata!warsy & Chr(9) & chdata!miya & Chr(9) & chdata!Password _
              & Chr(9) & chdata!qfdate & Chr(9) & chdata!qfmoney & Chr(9) & chdata!dymoney _
              & Chr(9) & chdata!num
     chdata.MoveNext
     Loop
   Close #1
这样写变成16进制
   chdata.MoveFirst
Open App.Path & "\tcjh" & Trim(Text1.Text) & ".txt" For Output As #1
   
  Do Until chdata.EOF
   Print #1, chdata!ywtype & Chr(9) & chdata!ywkind & Chr(9) & chdata!chtaccount & _
              Chr(9) & chdata!texcode & Chr(9) & chdata!tname & Chr(9) & chdata!daccount _
              & Chr(9) & chdata!dhcode & Chr(9) & chdata!DNAME & Chr(9) & chdata!hrcode _
              & Chr(9) & chdata!flag & Chr(9) & chdata!Money & Chr(9) & chdata!warnum _
              & Chr(9) & chdata!warsy & Chr(9) & chdata!miya & Chr(9) & chdata!Password _
              & Chr(9) & chdata!qfdate & Chr(9) & chdata!qfmoney & Chr(9) & chdata!dymoney _
              & Chr(9) & chdata!num
     chdata.MoveNext
     Loop
   Close #1这样就是asc码