Dim stream As New ADODB.Stream

stream.Type = adTypeText

stream.Charset = "utf-8"

stream.Open

stream.LoadFromFile "input.txt"

Dim bytes() As Byte

bytes = stream.Read

Dim utf8 As New UTF8Encoding

Dim gbk As Encoding

Set gbk = GetEncoding("gbk")

Dim output() As Byte

output = utf8.GetBytes(utf8.GetString(bytes))

output = ConvertEncoding(output, utf8, gbk)

stream.Position = 0

stream.Type = adTypeBinary

stream.Write output

stream.SaveToFile "output.txt", adSaveCreateOverWrite

stream.Close

在此示例中，首先创建了一个 ADODB.Stream 对象，并设置其类型为文本和字符集为 UTF-8。然后，使用 LoadFromFile 方法将输入文件加载到流中，并读取其内容。

接下来，将字节数组从 UTF-8 转换为字符串，再将字符串从 UTF-8 转换为字节数组，最后使用 ConvertEncoding 方法将字节数组从 UTF-8 转换为 GBK。

最后，将输出字节数组写入流中，并使用 SaveToFile 方法将其保存到输出文件中。完成后关闭流对象。