VB中怎么读取unicode格式码的txt文件,高手look

VB中如何读取unicode格式码的txt文件,高手look
VB引用Fso不管事，直接open   ...   as   #1乱码

请问如何正确读取

高手指点

------解决方案--------------------
f8e1这个码位的确存在严重问题！我以前也试过
你试试用Byte数组读，然后用Strconv转换或者直接赋给string 看看可以吗
不行就只好用api转了
------解决方案--------------------
我来结帖了!!
'*************************************************************************
'**FunctionName：DecipherFile
'**Input ：strEncryptFilePath(String) -File Path which has been Encrypted
'** ：strDecipherFilePath(String) -File Path which will Save Decipher Code
'**OutPut ：bytNewData() -Decipher Code
'**Description ：Decipher File which was Encrypted and made a new DecipherFile
'**Global Var ：bytNewData
'**Author ：YongJun-Zou
'**Data ：2007-01-15 14:52:56
'**Version ：V1.0.0
'*************************************************************************
Public Sub DecipherFile(strEncryptFilePath As String, strDecipherFilePath As String)
On Error GoTo ToExit '打开错误陷阱
'------------------------------------------------
Dim bytData() As Byte 'Save File Data
Dim lngLoop As Long 'For Loop
Open strEncryptFilePath For Binary As #1
ReDim Preserve bytData(LOF(1) - 1) As Byte
Get #1, 1, bytData 'Get Data from File
Close #1
For lngLoop = 0 To UBound(bytData)
Select Case bytData(lngLoop)
Case 11, 14
bytData(lngLoop) = bytData(lngLoop) - 2
Case 10, 13 'vbCrLf
bytData(lngLoop) = bytData(lngLoop)
Case 0
bytData(lngLoop) = 255
Case Else 'Normal
bytData(lngLoop) = bytData(lngLoop) - 1
End Select
Next
ReDim bytNewData(UBound(bytData)) As Byte
Call CopyMemory(bytNewData(0), bytData(0), UBound(bytData) + 1)

'Save a File that is Decipher Code
' If Dir(strDecipherFilePath) <> " " Then Kill strDecipherFilePath
' Open strDecipherFilePath For Binary As #1
' Put #1, 1, bytData 'Write New File which has been Deciphering
' Close #1

'------------------------------------------------
Exit Sub
'----------------
ToExit:
Debug.Print "Error Data: " & Format(Now, "YYYY-MM-DD HH:MM:SS ")
Debug.Print "Error Type: " & Err.Number
Debug.Print "ErrorDescription: " & Err.Description
Debug.Print "ErrorSource: " & "DecipherFile "
Debug.Print "SystemTitle: " & "Form1 "
End Sub

------解决方案--------------------
看了你的帖很多天，还没解决，我就试了一下。可以呀，在Textbox和RichEdit中都可以看到。问题有可能是你没正确用eudcedit.exe，先选中F8E1--〉然后画--〉Save Character---> Font Links to link with all Font.