求修改用VB写入的文件的编码方法

通过open filexx for output access wright AS #2 写入内容 close#2的形式生成sh文件。
但生成的sh编码是GBK的。怎么在VB里直接把他的编码修改成Utf8

能用adodb.stream吗？open不能指定编码，adodb.stream可以

Dim objStream
Set objStream = CreateObject("ADODB.Stream")
objStream.CharSet = "utf-8"
objStream.Open
objStream.WriteText "The data I want in utf-8"
objStream.SaveToFile "C:\Users\admin\Desktop\test.txt", 2

谷歌到一篇读的（也不是直接能读utf-8，需要转码），但是写的没找到。。