Public Sub WriteStr(ByVal strFullPath As String, strText As String)

    Const ForReading =  1 , ForWriting =  2 , ForAppending =  3 
    Const TristateUseDefault = - 2 , TristateTrue = - 1 , TristateFalse =  0 
    Dim fs, f, ts
    Dim strTemp2 As String
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(strFullPath)
Set ts = f.OpenAsTextStream(ForWriting, - 1 )
ts.Write strText

ts.Close

Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(strFullPath)
Set ts = f.OpenAsTextStream(ForReading, - 1 )
strTemp2 = ts.Readall

ts.Close

MsgBox StrComp(strText, strTemp2, vbBinaryCompare)

Exit Sub

MsgBox StrComp(Trim(strText), Trim(strTemp2), vbBinaryCompare)