vb.net实现繁简转换

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