VB6中提供的StrConv这个函数，完全可以解决简繁体的转换问题。下面是一个简繁体的转换的函数，利用该函数区区几行代码，就可以轻松地实现简体到繁体、繁体到简体的相互转化。

'****** 简繁体互换 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 Function

使用方法

Private Sub Command1_Click()

  Text2.Text = GBBIG5("我是中国人，我爱我的人民", 2)

End Sub