Excel VBAでUTF-8でファイル出力

あちこちにサンプルコード落ちてますが、いちいち検索するのも面倒なので書いておく。

Sub WriteToFileWithEncodingUTF8(filename As String, text As String)
    With CreateObject("ADODB.Stream")
        .Charset = "UTF-8"
        .Open
        .WriteText text, 1
        .SaveToFile filename, 2
        .Close
    End With
End Sub