vb 获取网页内容 会乱码 这是为啥？帮我看看代码哪里出问题了，谢谢

Question

访问网页http://www.darkinblack.com/11.html，内容正常显示为    
Kyyhkysmäki 3 B 20但我用vb 去获取网页内容，却显示成  
Kyyhkysm?ki 3 B 20这是为什么呢？ 编码问题么？需要怎么转换呢？ 谢谢Kyyhkysmäki 3 B 20
Kyyhkysm?ki 3 B 20我的代码如下Public Function getHtmlStr(strUrl As String) As String
    Dim XmlHttp As Object
    Set XmlHttp = CreateObject("Microsoft.XMLHTTP")
    
    XmlHttp.Open "GET", strUrl, False
    On Error GoTo Err_net
    XmlHttp.Send
    
    getHtmlStr = BytesToBstr(XmlHttp.responseBody, "utf-8")
    
    Set XmlHttp = Nothing
Err_net:
End Function
Private Function BytesToBstr(strBody, codeBase) As String
    Dim objStream As Object
    Set objStream = CreateObject("Adodb.Stream")
    objStream.Type = 1
    objStream.Mode = 3
    objStream.Open
    objStream.Write strBody
    objStream.position = 0
    objStream.Type = 2
    objStream.Charset = codeBase
    BytesToBstr = objStream.ReadText
    objStream.Close
    Set objStream = Nothing
End FunctionPrivate Sub Form_Load()
  Debug.Print getHtmlStr("http://www.darkinblack.com/11.html")
End Sub

Answer 1

需要怎么调整呢？windows 系统需要安装什么么？

Answer 2

不行的话就还是用浏览器控件来显示这些文字吧：）另外之前论坛中讨论过的unicode相关的帖子中，有提到控件和字体的，不妨搜索出来参考一下。

Answer 3

特殊字符使用普通文本框是显示不了的.试试使用RichTextBox,它应该能显示更多的字符.