How to read UTF-16 files

[bradamodeo]

I am trying to read in text files that are in UTF-16 format, using the
following code:

Dim fso
Dim infile
Set fso = CreateObject("Scripting.FileSystemObject")
Set infile = fso.opentextfile(vFile, ForReading, True)
Do While infile.atendofstream = False
strHoldLine = infile.readline
o
o
o
Loop

This works fine for standard UTF-8 files, but when I try to read
UTF-16 files, I get garbage in the strHoldLine variable. I have
verified through other programs (such as XMLSpy) that the UTF-16 files
are readable, just not by access.

Any help is GREATLY appreciated!


Brad