Excel VBA写UTF-8文件

客户给的多语言式样是Excel的，最终要做成mo。mo是po编译出来的，po是UTF-8文本。

Private Sub WriteOut(str As String, strPath As String)
    Dim objStream As Object

    Set objStream = CreateObject("ADODB.Stream")
    With objStream
        .Type = 2               'adTypeText
        .Charset = "UTF-8"
        .Open

        .WriteText str
        .SaveToFile strPath, 2  'adSaveCreateOverWrite
    End With

    Set objStream = Nothing
End Sub

以上内容抄于网上，那个“ADODB.Stream”是什么我不是很清楚。我用“Set objStream = new ADODB.Stream”不好使。