幫幫忙!請問如何用程序實現內碼轉換!

利用Strconv 函数可以把BIG码转换成国标码，不过是繁体
dim mem() as byte
Mem = StrConv(Text1.Text, vbFromUnicode, &H404)
Mem = StrConv(Mem, vbUnicode, &H804)把国标转换成BIG5：（只适用于繁体，若需要把简体与繁体互换才另需字符编码表）
Mem = StrConv(Text1.Text, vbFromUnicode, &H804)
Mem = StrConv(Mem, vbUnicode, &H404)
我有源程序和编码表
有空我找出来
我的信箱是[email protected]
你信箱多少？