VBA ADODB.Streamでのファイル読み込みができない

Question

前提・実現したいこと

ExcelVBAでテキストファイルを読み込もうとしています。
最初はFileSystemObjectで開いていたのですが、ファイル形式がUTF-8だったので、ADODB.Streamで開きたいと思いました。
ですが、ADODB.Streamに変更するとエラーを吐いて進めなくなりました。
エラーの原因と解決方法を教えていただけますでしょうか。

###バージョン
Microsoft Office 365

発生している問題・エラーメッセージ

実行時エラー '3002':
ファイルを開けませんでした。

このエラーが出たのですが、FileSystemObjectのときとADODB.Streamのときでファイルは変わらないので開けない理由がわかりません。

該当のソースコード

####FileSystemObjectの場合

Dim FSO As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
Dim fpath As String
Dim buf As String
fpath="C:/Users/test/Documents/test/test.html"
With FSO.GetFile(fpath).OpenAsTextStream
 buf=.ReadAll
 .Close
End With

こちらは正常に動きます。（文字化けはしますが）
####ADODB.Streamの場合

Dim fpath As String
Dim buf As String
fpath="C:/Users/test/Documents/test/test.html"
With CreateObject("ADODB.Stream")
 .Charset="UTF-8"
 .Open
 .LoadFromFile fpath
 buf=.ReadText
 .Close
End With

こちらのソースだとエラーを吐きます。
デバックで確認したところ、.LoadFromFile fpathのところが黄色になります。

###試したこと
ツールの参照設定からMicrosoft ActiveX Data Object 2.8 Library　を参照するようにする

Answer 1

htmlファイルをByte型の配列に入れて処理できないでしょうか。

エクセルマクロ オンライン講座コメント紹介において、
以下ＱＡで文字化けを扱っていますのでご参考ください。
エクセルマクロVBA「Web連携」DOMを使った解析_基礎