'大五码转国标繁体
Function BIG52GBK(ByVal sBIG5 As String) As String
Dim nLen As Integer
Dim sGBK As String
Dim sUnicode As String
nLen=Len(sBIG5)
sUnicode=String$(nLen*2,0)
'BIG5->Unicode
Call MultiByteToWideChar(&H3B6,0,ByVal StrPtr(sBIG5),-1,ByVal StrPtr(sUnicode),nLen)
'Unicode->GBK
sGBK=String$(nLen,0)
Call WideCharToMultiByte(&H3A8,0,ByVal StrPtr(sUnicode),-1,ByVal StrPtr(sGBK),nLen,"",0)
Function=sGBK
End Function