Sub WriteUnicodeFile(ByVal FileName As String, ByVal Text As String)
Const BOM As Integer = &HFEFF
Dim hFile As Integer
Dim aBytes() As Byte
aBytes = Text
If LenB(Dir(FileName)) <> 0 Then
Kill FileName
End If
hFile = FreeFile()
Open FileName For Binary Access Write Lock Read Write As #hFile
Put #hFile, , BOM
Put #hFile, , aBytes
Close #hFile
End Sub
