VBAにおけるファイル読み込み（UTF-8）

VBAでUTF-8のファイルを１行ずつ読み込む方法。
改行コードはCR+LF。
BOM付でも問題ないはず。

Dim buffer As String

With CreateObject("ADODB.Stream")
  .Charset = "UTF-8"
  .Open
  .LoadFromFile = "ファイルパス"

  Do Until .EOS
    '' -1:ファイル全読み込み、-2:1行ずつ読み込み
    buffer = .ReadText(-2)
  Loop

  .Close
End With