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