vbaでエンコードがeucのファイルの処理

ADODB.Streamを利用して、vbaでエンコードがeucのファイルを処理する方法

Dim ADS As Object
Set ADS = CreateObject("ADODB.Stream")
Dim strText As String

'対象ファイルの状況によって、下記を使い分け
Const adTypeText = 2 'テキストファイル
Const adTypeBinary = 1 'バイナリファイル
Const adReadLine = -2 '行ごと読む
Const adReadAll = -1 'ファイル全体を読む
Const adLF = 10 '改行LF
Const adCR = 13 '改行CR
Const adCRLF = -1 '改行CRLF

With ADS
    .Open
    .Type = adTypeText
    .Charset = "EUC-JP" ' EUCコード
    .LineSeparator = adLF
    .LoadFromFile ファイル名 ' 読み込むファイルを指定
    .Position = 0 ' 読み込む位置は先頭から
    strText= .ReadText(adReadAll )
    .Close
End With
Debug.Print strText