Конвертация данных в кодировку UTF-8

Запись в файл данных в кодировке UTF-8:

Option Explicit
Sub SaveXML_UTF8
 
  Const fmCreate = &HFFFF&
  Const FileName = "c:\temp\test.xml"
 
  Dim MS, FS, Creator
 
  Set Creator = New TCreator
  Set MS = Creator.GetObject(nil, "TMemoryStream", "")
 
  MS.WriteLn("<?xml version=""1.0"" encoding=""UTF-8""?>")
  MS.WriteLn("<note>")
  MS.WriteLn("  <text>" & _
    System.ReplaceXMLTags("Кириллический текст cо специальными символами < > "" ' &")) &_
    "</text>"
  MS.WriteLn("</note>")
 
  Set FS = Creator.GetObject(Array(FileName, fmCreate), "TFileStream", "")
  Call System.WIN1251ToUTF8(MS, FS)
End Sub