这个COM用到了一个VC的资源文件。就是字典。
大家可以去61.134.75.70/download/gb2big5.zip下载

原代码如下：

´//////////////////////////////////////////
´中文名称：GB与BIG5内码互换控件
´英文名称：GB2BIG5
´作者：Blood
´版本：1.0
´制作时间：2002.3.5
´版权所有 Blood 2002 - 2003
´//////////////////////////////////////////

Option Explicit

´定义变量
Dim BIG5Data As Variant
Dim GBData As Variant

´定义自定义类型，用来处理编码的高低字问题
Type ChineseTypeA
loChar As Byte
hiChar As Byte
End Type

Private BIG5Type(&HA1 To &HFF, &H40 To &HFE) As ChineseTypeA´对应于BIG5字库
Private GBType(&HA7 To &HFF, &HA1 To &HFE) As ChineseTypeA´对应与GB字库

´//////////////////
´公共函数开始
´//////////////////

´BIG5转换到GB的函数

Function BIG5TOGB(strSource As String) As String
Dim I As Long, Y As Long
´定义数组，用来存放BIG5和GB内码数据
Dim bteBIG5() As Byte
Dim bteGB() As Byte

´如果输入的内容为空，则退出函数
If strSource = \"\" Then
BIG5TOGB = \"\"
Exit Function
End If

´将BIG5数组的类型从Unicode编码转换为系统缺省码
bteBIG5 = StrConv(strSource, vbFromUnicode)
´确定BIG5数组的下标，用来循环将所有的BIG5内容转换为GB内码
Y = UBound(bteBIG5)
ReDim bteGB(0 To Y)
For I = 0 To Y
If I = Y Then
bteGB(I) = bteBIG5(I)
Exit For
End If
If bteBIG5(I) < &HA1 Or bteBIG5(I + 1) < &H40 Then
bteGB(I) = bteBIG5(I)
Else
bteGB(I) = BIG5Type(bteBIG5(I), bteBIG5(I + 1)).loChar
bteGB(I + 1) = BIG5Type(bteBIG5(I), bteBIG5(I + 1)).hiChar
I = I + 1
End If
Next I
´将系统缺省码转换为Unicode编码
BIG5TOGB = StrConv(bteGB, vbUnicode)
´重新初始化GB数组，以释放内存
Erase bteGB
End Function

´GB转换到BIG5的函数

Function GBTOBIG5(strSource As String) As String
Dim I As Long, Y As Long
´定义数组，用来存放BIG5和GB内码数据
Dim bteGB() As Byte
Dim bteBIG5() As Byte

´如果输入的内容为空，则退出函数
If strSource = \"\" Then
GBTOBIG5 = \"\"
Exit Function
End If

´将GB数组的类型从Unicode编码转换为系统缺省码
bteGB = StrConv(strSource, vbFromUnicode)
´确定GB数组的下标，用来循环将所有的BIG5内容转换为GB内码
Y = UBound(bteGB)
ReDim bteBIG5(0 To Y)

For I = 0 To Y
If I = Y Then
bteBIG5(I) = bteGB(I)
Exit For
End If
If bteGB(I) < &HA1 Or bteGB(I + 1) < &HA1 Then
bteBIG5(I) = bteGB(I)
Else
If bteGB(I) < &HB0 And bteGB(I + 1) >= &HA1 Then