Dim strSimplifiedChinese,strTraditionalChinese As String

strSimplifiedChinese = "我是中国人！"

strTraditionalChinese = StrConv(strSimplifiedChinese,VbStrConv.TraditionalChinese) '简转繁
Me.TextBox1.Text = strTraditionalChinese

strSimplifiedChinese = StrConv(strTraditionalChinese,VbStrConv.SimplifiedChinese) '繁转简

Me.TextBox2.Text = strSimplifiedChinese