转 简繁转换如此简单

发现一个蛮爽的方法：

Public Function StrConv(ByVal str As String, ByVal Conversion As Microsoft.VisualBasic.VbStrConv, Optional ByVal LocaleID As Integer = 0) As String
     成员属于: Microsoft.VisualBasic.Strings

摘要:
返回按照指定转换的 String。

参数:
Str: 要转换的 String 表达式。
Conversion: Microsoft.VisualBasic.VbStrConv。指定要执行的转换类型的枚举值。
LocaleID: LocaleID 值（如果与系统 LocaleID 值不同）。（系统 LocaleID 值为默认值。）

实现简体繁体转换就如此简单：
简体转繁体：Microsoft.VisualBasic.Strings.StrConv(InputStr as String, VbStrConv.TraditionalChinese)
繁体转简体：Microsoft.VisualBasic.Strings.StrConv(InputStr as String, VbStrConv.SimplifiedChinese)