Remove BOM from UTF-8 file

[mah_kum_70]

Hello,

I am creating a UTF-8 file using excel vba. It is putting the 3 byte Byte Order Mark at the begining of the file automatically. Is there a way to remove it?

I am using the following code to generate the file.


Sub MACRO5()
Dim DataSet As New ADODB.Stream
With DataSet
.Open
.Charset = "utf-8"
.WriteText "Line one "
.WriteText vbCrLf
.WriteText "Line two"


.SaveToFile "C:\temp\utftest.txt"
End With
DataSet.Close

Set DataSet = Nothing
end sub