简繁字的转换问题

Question

'******  简繁体互换  GB-->  BIG5  Or  BIG5-->  GB    *****************
  '参数sStr为需要转换的文本
  '参数iConver为要转化的类型，为1时表示繁体到简体的转换，为2时表示简体到繁体的转换
  Function  GBBIG5(sStr  As  String,  iConver  As  Integer)  As  String
  On  Error  Resume  Next
          Dim  STR
          If  iConver  =  1  Then  'BIG5-->  GB
                  STR  =  StrConv(sStr,  vbFromUnicode,  &  H804)
                  GBBIG5  =  StrConv(STR,  vbUnicode,  &  H404)
          ElseIf  iConver  =  2  Then  'GB-->  BIG5
                  STR  =  StrConv(sStr,  vbFromUnicode,  &  H404)
                  GBBIG5  =  StrConv(STR,  vbUnicode,  &  H804)
          End  If
  
  End  Functionwww.21code.com也有这样的源代码