VB 读取 UTF-8 问题

引用microsoft activex data object library
Dim s As Stream
Set s = New Stream
s.Open
s.Charset = "UTF-8"
s.Position = 0
s.LoadFromFile "C:\pppp.wap"
s.Position = 0

Text1 = s.ReadText

Private Sub Form_Load()
Dim objStream As New ADODB.Stream
Dim str As String

With objStream
.Type = adTypeText
.Mode = 3
.Mode = 3
.Open
.LoadFromFile "c:\test.txt"
.Position = 0
.Charset = "UTF-8"
str = .ReadText
.Close
End With
MsgBox str
End Sub

'引用microsoft activex data object library 2.5
安装VB6.0企业版