Public Sub WriteFileString(path As String, conts As String)
Dim r() As Byte
    r = VBA.StrConv(conts, vbFromUnicode)
    Open path For Binary As #1
    Put #1, , r
    Close #1
End Sub