vb.net实现繁简转换

Dim strSimplifiedChinese, strTraditionalChinese As String 
        strSimplifiedChinese = "我是中国人！" 
        strTraditionalChinese = StrConv(strSimplifiedChinese, VbStrConv.TraditionalChinese) '简转繁 
        Console.Write(strTraditionalChinese) 
        strSimplifiedChinese = StrConv(strTraditionalChinese, VbStrConv.SimplifiedChinese) '繁转简 
        Console.Write(strSimplifiedChinese)