为什么读日文时会有乱码？该怎么处理

为什么读日文时会有乱码？
Dim   Revdstr()   As   Byte
'         Dim   abc               As   String
        Dim   i                   As   Integer
        Dim   n                   As   Integer
        Dim   Hstr             As   String   '16
        Dim   DECstr             As   String   '10
        Dim   Data()     As   String

        Open   App.Path   &   "\ "   &   "HELP.MSG "   For   Binary   As   #2
                ReDim   Revdstr(LOF(2)   -   1)
                        Get   #2,   ,   Revdstr
'                         abc   =   StrConv(Revdstr,   vbUnicode)       '$$
        Close   #2

        For   i   =   0   To   UBound(Revdstr)
                Hstr   =   HEX(Revdstr(i))
                DECstr   =   DECstr   &   Chr(Revdstr(i))
'                 Debug.Print   Hstr         'tests
                If   Mid(Hstr,   1,   1)   =   0   Then
                        ReDim   Preserve   Data(n)   As   String
                        If   n   <   n   +   1   Then
                                Data(n)   =   Left(DECstr,   Len(DECstr))
                                Debug.Print   Data(n)   'tests
                                n   =   n   +   1
                                DECstr   =   " "
                        End   If
                End   If
        Next

------解决方案--------------------
现在好用了么??
使用CONVSTR函数转换!