>>704

Dim abytBuff() as byte
Dim hFile&
Dim strText$

hFile = FreeFile()
Open "hoge.txt" as Binary for hFile
Redim abytBuff( LOF(hFile) - 1 ) 'サイズが0だとエラーになるよ
Get hFile,,abytBuff()
Close hFile

strText = StrConv(abytBuff(),vbUnicode)

こんな感じかな。