Dim strSimplifiedChinese,strTraditionalChinese As String
strSimplifiedChinese = "我是中国人！"
strTraditionalChinese = StrConv(strSimplifiedChinese,VbStrConv.TraditionalChinese) '简转繁
Me.TextBox1.Text = strTraditionalChinese
strSimplifiedChinese = StrConv(strTraditionalChinese,VbStrConv.SimplifiedChinese) '繁转简
Me.TextBox2.Text = strSimplifiedChinese
原文链接：https://www.f2er.com/vb/261299.html