Sub SaveFileUTF8WithoutBOM(filePath As String, dataString As String)
Dim adodb1 As Object
Dim adodb2 As Object
Set adodb1 = CreateObject("ADODB.Stream")
Set adodb2 = CreateObject("ADODB.Stream")
With adodb1
.Charset = "UTF-8"
.Open
.WriteText dataString
.Position = 3
With adodb2
.Type = 1
.Open
adodb1.CopyTo adodb2
.SaveToFile filePath, 2
.Close
End With
.Close
End With
End Sub