Function SaveTextData()Function SaveTextData(FileName, Text, CharSet) Const adTypeText =2 Const adSaveCreateOverWrite =2 'Create Stream object Dim BinaryStream Set BinaryStream =CreateObject("ADODB.Stream") 'Specify stream type - we want To save text/string data. BinaryStream.Type = adTypeText 'Specify charset For the source text (unicode) data. IfLen(CharSet) >0Then BinaryStream.CharSet = CharSet EndIf 'Open the stream And write binary data To the object BinaryStream.Open BinaryStream.WriteText Text 'Save binary data To disk BinaryStream.SaveToFile FileName, adSaveCreateOverWrite End Function