ExcelVBA テキストファイルUNICODE文字化けについて

1.環境
Microsoft Windows7 64ビット
Microsoft Ofiice2013 Excel2013 32ビット

2.事象
テキストファイルに定義しているUNICODEを読むと文字化け(?)します。
メモ帳等のテキストファイル上はUNICODEを文字化けせずに目視で確認しています。
どうしたら文字化けせずに読めるのでしょうか？
どなたか詳しい方、ご教授願います。

3.テキストファイル(test.dat)
❶

4.VBA
・参照設定([ツール(T)]バー－[参照設定(R)…])
レ Microsoft ActiveX Data Objects 2.8 Library

・ソース
※例どっちでも、文字化けします。
Dim a, b As String
例1)
With CreateObject("ADODB.Stream")
.Charset = "UTF-8"
.Type = adTypeText
.Open
.LoadFromFile "C:\test.dat"
a = .ReadText
.Close
End With

例2)
Open "C:\test.dat" For Input As #1
Do Until EOF(1)
Line Input #1, b
Loop
Close #1

質問者からの補足コメント

• 

  UTF-16LEに変更して実行後、下記のエラーが出ました。
  困っています。
  解消方法を願います。
  
  ■エラー詳細
  Err.Number：3001
  Err.Description：引数が間違った型、許容範囲外、または競合しています。

  No.1の回答に寄せられた補足コメントです。 補足日時：2016/09/16 11:43

• 

  64ビット版の秀丸エディタで、開きました。
  次に[メニュー]バー－[ファイル]－[名前を付けて保存(A)…]
  名前を付けて保存画面
  エンコードの種類(C): [自動判定 - Unicode(UTF-8)] □BOMを付ける(※チェック無)

  No.2の回答に寄せられた補足コメントです。 補足日時：2016/09/16 14:26

• 

  Unicode(UTF-8) BOMはグレー表示（ＢＯＭ無）になっています。
  開いたファイルの内容は、秀丸できちんと表示されています。

  No.3の回答に寄せられた補足コメントです。 補足日時：2016/09/16 15:13

• 

  ソースの提供ありがとうございました。
  下記のようにして参照設定を変更してソース実行をしました。
  
  まだ、文字化け(?)をします。
  ちなみに試しに①は、文字化け(?)をせずにきちんと表示されました。
  また、Microsoft ActiveX Data Objects 2.8 Libraryに戻して、実行も文字化けしています。
  後、例１の実行も文字化けしています。
  
  ■参照設定の変更
  ・参照設定([ツール(T)]バー－[参照設定(R)…])
  レ Microsoft ActiveX Data Objects 6.1 Library

  No.5の回答に寄せられた補足コメントです。 補足日時：2016/09/16 16:20

• 

  皆さん、様々な情報ありがとうございます。
  秀丸で❶を改行付き、Unicode16(UTF-16)　□BOMを付ける(※チェック有)で保存
  
  > この文字をexcelのシートに直接出力すれば、きちんと表示されます。
  結果は文字化けです。
  (◆◆の中に(?)v')が見れました。
  > ・読み込んだテキストがどんな文字列になっているか、1文字1文字ascWでコードを調べる
  -3でした。
  > Shift_JISに無い「黒地の丸数字」が変換できずに「文字化け」になっている、というものです。
  と自分も思います。
  書き忘れていたのですが、したい事はExcelVBAを通して別のテキストファイルに❶を出力させる事です。
  今の文字化け状態で別のテキストファイルにそのまま出力で、あるソフト変換にて正しく表示出来ればＯＫです。
  果たしてそのUnicodeを維持していればいいのですが…

  No.9の回答に寄せられた補足コメントです。 補足日時：2016/09/18 18:13

• 

  皆さんのアドバイスを元に色々、試しました。
  結果、NGです。
  発想を変えて、入力テキストファイルから出力テキストファイルではなく、シートのセルから出力テキストファイルに変更しました。
  結果、OKです。
  これは、セル自体にUnicodeを対応していると思っています。
  自分だけでは、解決出来ず、皆さんのアドバイズに感謝しています。
  ありがとうございました(__)。

    補足日時：2016/09/22 10:52

No.4 回答者： tatsu99 回答日時： 2016/09/16 15:10

ファイルがＵＴＦ－８の前提です。

以下のようにしてください。
---------------------------------------------------
Option Explicit

Public Sub Macro1()
Call myReadFile("c:\test.data")
End Sub
'参照設定でMicrosoft ActiveX Data Objects x.x Library（最新版） にチェックをしておくこと
Public Sub myReadFile(ByVal infile As String)
'読み込み用オブジェクト作成
'ファイルを読み込むための変数
Dim line As String
Dim lineNo As Long
'オブジェクトを作成
Dim txt As Object
Set txt = CreateObject("ADODB.Stream")
'オブジェクトに保存するデータの種類を文字列型に指定する
txt.Type = adTypeText
'文字列型のオブジェクトの文字コードを指定する
txt.Charset = "UTF-8"
'オブジェクトのインスタンスを作成
txt.Open

'ファイルからデータを読み込む
txt.LoadFromFile (infile)
lineNo& = 0
'最終行までループする
Do While Not txt.EOS
lineNo = lineNo + 1
'1行を読み取る
line = txt.ReadText(adReadLine)
MsgBox (line)
Loop

txt.Close
'メモリからオブジェクトを削除する
Set txt = Nothing

MsgBox ("lineNo=" & lineNo)
End Sub
------------------------------------------------------
１行ずつ読み込んで、メッセージボックスに内容を表示しています。
参照設定でMicrosoft ActiveX Data Objects x.x Library（最新版） にチェックをしておくことを
忘れずにお願いいたします。

No.3 回答者： tatsu99 回答日時： 2016/09/16 15:04

UTF-8 BOM無のように見えますが、念の為

（１）秀丸でそのファイルを開いて、
メニューバーの「ファイル」ー「エンコードの種類」で
Unicode(UTF-8) BOMはグレー表示（ＢＯＭ無）
となっていますか。
（２）開いたファイルの内容は、秀丸できちんと表示されていますか。

No.2 回答者： tatsu99 回答日時： 2016/09/16 13:30

そのテキストファイル(test.dat)が一体、どのＵＮＩＣＯＤＥなのかを明確にする必要があります。

もし、秀丸があれば、秀丸で、そのファイルを開いてください。
UTF-16(LE) BOM無
UTF-16(BE)　BOM無
UTF-7　BOM無
UTF-16(LE) BOM付き
UTF-16(BE)　BOM付き
UTF-7　BOM付き
等が考えられますが、まず、どのＵＮＩＣＯＤＥなのかを明らかにしましょう。
話はそれからです。

No.1 回答者： himajin100000 回答日時： 2016/09/16 10:55

(例1) 実は読み込んでいるファイル、UTF-8じゃなくてUTF-16LEだったとかいうオチじゃないよね？