繁简体转换

   '繁体转简体   

   Return (Microsoft.VisualBasic.Strings.StrConv(str, Microsoft.VisualBasic.VbStrConv.SimplifiedChinese, 0))  

 End Function 

 Public Shared Function Simplified2Traditional(ByVal str As String) As String 

   '简体转繁体   

    Return (Microsoft.VisualBasic.Strings.StrConv(TryCast(str, String), Microsoft.VisualBasic.VbStrConv.TraditionalChinese, 0))  

End Function