用vba创建utf8格式的txt文件

之前用createTextFile方法发现写出来的结果是utf16。
因为目标系统不支持utf16，只好求组网络。
学到了拿adodb写文件的偏门，或者说其实这才是主流？

Public Sub doExec()
    Dim lngLstRow2 As Long
    Dim i As Long
    Dim fso As New FileSystemObject
    Dim f As Object
    Dim j As Integer
    Dim fName As String
    Dim Stream As New ADODB.Stream
    Stream.Type = adTypeText
    Stream.Charset = "utf-8"
    Stream.Open
    
    '...
    '...
    
    fName = "C:\Project\test\app_archi.md"
    
    
    
   
   Stream.WriteText  " " & "something" & vbLf
        
        

    Stream.SaveToFile fName, adSaveCreateOverWrite
    Stream.Close
End Sub