“汉字转化拼音” 中的一个有关问题

求助：“汉字转化拼音” 中的一个问题
*----以下代码存入一个GetPY.prg中,即建立自定义函数----* 

PARAMETERS   cChina 
LOCAL   pcPychr,i,j,c,Hz 
Release   pcPychr 
Public   pcPychr 
pcPychr= ' ' 
Set   Collate   To   'Pinyin ' 
Pycode= '八嚓咑妸发旮铪讥讥咔垃呣拿讴趴七呥仨他哇哇哇夕丫匝咗 '   &&从B开始的每个拼音码的首字码 
For   i=1   To   Len(cChina) 
        IF   Asc(Substr(cChina,i,1))> 160 
              hz=Substr(cChina,i,2)               
              c= ' ' 
              s=1 
              For   j=1   To   52                           
                      s1=Substr(Pycode,j,2)       
                      IF   hz <Substr(Pycode,j,2)                             
                            c=Chr(96+S) 
                            Exit 
                      Endif 
                      j=j+1 
                      s=s+1 
              Endfor                           
              pcPychr=pcPychr+Upper(c) 
              i=i+1 
        Else 
              pcPychr=pcPychr+Upper(Substr(cChina,i,1))                         
        Endif       
Endfor 
Return   pcPychr 
**End** 



运行此函数发现凡是‘M’声母开头的汉字 转换后为‘L’开头
例如：？GetPY（'头孢美唑钠'） 显示为 TBLZN
那位高手能帮小弟解决一下啊 
不胜感激啊
------解决方案--------------------