vb 6.0 中 ，保存 text 内容 到C盘 ，为 utf-8编码 php文件

Question

窗体上有Command1 和一个 text1
单击按钮1，自动保存text1的内容为 UTF-8编码格式的php文件 ，到C盘
【转码后再保存也不行。】

保存简单，但是保存的都是ansi格式的， 怎么保存为UTF-8的编码？？？

因为我要保存为php文件，
text里面有“ <meta http-equiv="Content-Type" content="text/html; charset=utf-8" ”
保存后，如果是ansi编码的话，就会乱码，必须手动转存为UTF-8才行

怎么直接保存为UTF-8编码的 php文件或者txt文件都行，关键是编码问题！！

求大神，

Answer 1

假设想保存的文本都在Text1文本框里面，以下代码需引用 MicroSoft ActiveX Data Objects 2.5 Library：
Private Sub Command1_Click()
Dim adostream As New ADODB.Stream
With adostream
.Type = adTypeText
.Mode = adModeReadWrite
.Charset = "utf-8"
.Open
.Position = 0
.WriteText Text1.Text '想保存的文本都在Text1文本框里面
.SaveToFile "D:\test.txt", adSaveCreateOverWrite '保存到D:\test.txt
.Close
End With
Set adostream = Nothing
End Sub

Answer 2

With CreateObject("ADODB.Stream")
.Open
.Charset = "utf-8"
.WriteText Text1.Text
.SaveToFile "C:\a.txt", 2 '保存到文件,2表示覆盖现有文件
.Close
End With