UTF-8形式のテキストファイルを読み込んで変数に格納

■以下のようなUTF-8形式のテキストファイルを読み込んで変数に格納

Sub readUtfFile()
    Dim buf As String, Target As String
    Target = "C:\Users\デスクトップ\UTFデータ.csv"
    With CreateObject("ADODB.Stream")
        .Charset = "UTF-8"
        .Open
        .LoadFromFile Target
        '読み取ったテキストを変数に格納
        buf = .ReadText
        .Close
        MsgBox buf
    End With
End Sub