'大五码转国标繁体
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