GB与BIG5内码转换COM原代码

这个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