【2022/4/16 追記】
情報が古くなっているため、新しい記事をご覧ください。
【新】VBA UTF-8出力のおまじない - アーシの毎日インプット
----------
自分用メモです。
Dim ADOST As Object
Set ADOST = CreateObject("ADOST.Stream")
With ADOST
.Charaset = "UTF-8"
.LineSeparator = adLF
.Open
.WriteText "aaa", adWriteLine
.WriteText vbTab & "bbb", adWriteLine
.WriteText "ccc", adWriteLine
.Position = 0
.Type = ad TypeBinary
.Position = 3
Dim byteData as Variant
byteData = .Read
.Close
.Open
.Write byteData
.SaveToFile {FILENAME}, adSaveCreateOverWrite
.Close
End With