VB保存文本为unicode格式

Function saveUnicode()Function saveUnicode()Function saveUnicode()function saveUnicode(byval str as string,FileName as string)
  dim data() as byte,fnu as integer
  
  fn=freefile
  data=str
  Open FileName For Binary Access Write As #fnu
      Put #fnu, , Data 
  Close #fnu
end function

VB内部处理字符就是用UNICODE,所以在VB要保存字符为UNICODE格式如此简单