Dim arrBytes() As Byte,s As String
Open "c:\xxx.txt" For Binary As 1
ReDim arrBytes(lof(1))
Get 1, , arrBytes
Close 1
s=Strconv(arrBytes,vbunicode)
Text1.Text=s
Dim filename As String
Dim s1 As String
Dim a As String
filename = "文件路径"
Open filename For Input As #1
'Line Input #1, s1
a = StrConv(InputB(LOF(1), 1), vbUnicode)
Text1.Text = a
Close #1