UTF-8でファイルの書き出し

example(VBA)

Sub Main
  Dim sr As New ADODB.stream
  sr.Open
  sr.Type = adTypeText
  sr.Charset = "UTF-8"
  sr.WriteText "Hellow UTF-8"
  sr.SaveToFile "C;\test.html",adSaveCreateOverWrite
End Sub

Microsoft ActiveX Data Objects X.X Library を参照設定する必要があります。

sr.Charset = "UTF-8" を変更すれば好きな文字コードで保存ができます。