vb将汉字转换为拼音

''*************************************************************************
''**函 数 名：gGetPinYin
''**输 入：ByVal intHanZiAsc(Integer) -汉字的ASCII码，用ASC函数取得
''**输 出：(String) -一个拼音字符串
''**功能描述：输入一个汉字，输出一个拼音
''**全局变量：
''**调用模块：
''**作 者：wild
''**日 期：2004-10-06
''**修 改 人：
''**日 期：
''**版 本：V1.1.78
''*************************************************************************
Public Function gGetPinYin(ByVal strHanZi As String) As String

Dim objPinYinDic As Variant

Set objPinYinDic = CreateObject("Scripting.Dictionary")

objPinYinDic.Add "a", -20319
objPinYinDic.Add "ai", -20317
objPinYinDic.Add "an", -20304
objPinYinDic.Add "ang", -20295
objPinYinDic.Add "ao", -20292
objPinYinDic.Add "ba", -20283
objPinYinDic.Add "bai", -20265
objPinYinDic.Add "ban", -20257
objPinYinDic.Add "bang", -20242
objPinYinDic.Add "bao", -20230
objPinYinDic.Add "bei", -20051
objPinYinDic.Add "ben", -20036
objPinYinDic.Add "beng", -20032
objPinYinDic.Add "bi", -20026
objPinYinDic.Add "bian", -20002
objPinYinDic.Add "biao", -19990
objPinYinDic.Add "bie", -19986
objPinYinDic.Add "bin", -19982
objPinYinDic.Add "bing", -19976
objPinYinDic.Add "bo", -19805
objPinYinDic.Add "bu", -19784
objPinYinDic.Add "ca", -19775
objPinYinDic.Add "cai", -19774
objPinYinDic.Add "can", -19763
objPinYinDic.Add "cang", -19756
objPinYinDic.Add "cao", -19751
objPinYinDic.Add "ce", -19746
objPinYinDic.Add "ceng", -19741
objPinYinDic.Add "cha", -19739
objPinYinDic.Add "chai", -19728
objPinYinDic.Add "chan", -19725
objPinYinDic.Add "chang", -19715
objPinYinDic.Add "chao", -19540
objPinYinDic.Add "che", -19531
objPinYinDic.Add "chen", -19525
objPinYinDic.Add "cheng", -19515
objPinYinDic.Add "chi", -19500
objPinYinDic.Add "chong", -19484
objPinYinDic.Add "chou", -19479
objPinYinDic.Add "chu", -19467
objPinYinDic.Add "chuai", -19289
objPinYinDic.Add "chuan", -19288
objPinYinDic.Add "chuang", -19281
objPinYinDic.Add "chui", -19275
objPinYinDic.Add "chun", -19270
objPinYinDic.Add "chuo", -19263
objPinYinDic.Add "ci", -19261
objPinYinDic.Add "cong", -19249
objPinYinDic.Add "cou", -19243
objPinYinDic.Add "cu", -19242
objPinYinDic.Add "cuan", -19238
objPinYinDic.Add "cui", -19235
objPinYinDic.Add "cun", -19227
objPinYinDic.Add "cuo", -19224
objPinYinDic.Add "da", -19218
objPinYinDic.Add "dai", -19212
objPinYinDic.Add "dan", -19038
objPinYinDic.Add "dang", -19023
objPinYinDic.Add "dao", -19018
objPinYinDic.Add "de", -19006
objPinY