免费视频淫片aa毛片_日韩高清在线亚洲专区vr_日韩大片免费观看视频播放_亚洲欧美国产精品完整版

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