Public Function FUN_IN_TXT_utf8(Path_Name As String, str As String)

Dim st As ADODB.Stream
   On Error GoTo FUN_IN_TXT_utf8_Error
' Date      : 06.05.2015
' ----------------------------------------
Set st = CreateObject("ADODB.Stream")
st.Type = 2
st.Open
st.Charset = "UTF-8"
st.WriteText (str)
st.SaveToFile (Path_Name)


' ----------------------------------------
   On Error GoTo 0
   Exit Function

FUN_IN_TXT_utf8_Error:
Call FUN_IN_TXT(App.Path & "\ошибки.txt", Now() & " (" & Err.Description & ") in procedure FUN_IN_TXT_utf8 of Module MOD_TXT")


End Function