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