UTF-8の日本語が正しく読み取れない。

Andy 2002-02-24 23:05:38 No: 75327

UTF-8でコードされた日本語データが正しく読み取れません。
例えばファイルに”データ”(X'E38386E382B9E38388'）があり、次のようにコーディングすると、
  flen = FileLen(filename)
  Open filename For Binary Access Read As #1
  vtData = Input(flen, #1)
  Close #1
  filename = filename & "_0"
  Open filename For Binary Access Write As #1
  Put #1, , vtData
  Close #1
出力ファイルには、X'E383814582B9E3838145'と書き出されます。
FSO使って、
  Set objText = fso.OpenTextFile(filename, ForReading)
  vtData = objText.ReadAll()
  objText.Close
と書き換えても結果は同じでした。

UTF-8データを正しく読み取れる方法を教えてください。