vbaで出力したファイルの文字コードをUTF-8にして出力する

Sub WriteTextToFileInUTF8()
    Dim filePath As String
    Dim textData As String
    Dim stream As Object

    ' マクロを実行したファイルと同じフォルダにファイルパスを指定
    filePath = ThisWorkbook.Path & "\output_utf8.txt"
    
    ' 書き込むテキストデータ
    textData = "This is a sample text written to the file in UTF-8."

    ' ADODB.Stream オブジェクトを作成
    Set stream = CreateObject("ADODB.Stream")
    
    ' ストリームの設定
    stream.Type = 2 ' テキストモード
    stream.Charset = "UTF-8" ' 文字コードをUTF-8に設定
    
    ' テキストを書き込み
    stream.Open
    stream.WriteText textData

    ' ファイルに保存
    stream.SaveToFile filePath, 2 ' 2は上書き保存を指定する定数

    ' ストリームを閉じる
    stream.Close
    
    ' オブジェクトの開放
    Set stream = Nothing

    MsgBox "Text has been written in UTF-8 to " & filePath
End Sub