UTF8で作成されたHTMLファイルの表示について

質問

WebBrowserをフォームに貼り付け、次のようなコードを記載してたのですが、表示が文字化けしてしまいます。どうすればよいでしょうか？

Private Sub Form_Load()
Dim html As String
Dim pDoc As Object

html = ReadFileData("UTF8.html")
Set pDoc = New MSHTMLCtl.HTMLDocument

WebBrowser1.Navigate "about:blank"
Set pDoc = WebBrowser1.Document
pDoc.writeln html

Set pDoc = Nothing

End Sub

Public Function ReadFileData(ByVal FileName As String) As String

Dim bytArray() As Byte
Dim intFileNo As Integer
Dim lngFileLenB As Long

lngFileLenB = FileLen(FileName)
ReDim bytArray(lngFileLenB - 1)
intFileNo = FreeFile
Open FileName For Binary As #intFileNo
Get #intFileNo, , bytArray
Close #intFileNo

ReadFileData = StrConv(bytArray, vbUnicode)
End Function

環境：VB6＋WinXP

回答No.1

hotosys · ベストアンサー

>ReadFileData = StrConv(bytArray, vbUnicode)

を

With CreateObject("ADODB.Stream")
.Open
.Type = 2 'adTypeText
.Charset = "unicode"
.Writetext bytArray
.position = 0
.Charset = "utf-8"
bytArray = .ReadText()
.Close
End With
ReadFileData = bytArray

に

お礼

ありがとうございます。

早速修正してみましたが、出力されたソース（HTMLソース）が、シフトJISになっていました。
UTF8のまま出力させることは出来ないでしょうか？