取得汉字首字母代码

Public Function PY(Lv_Str_HZ As String) As String  '»ñµÃºº×ÖµÄÆ´Òô¼òÂë
    Dim Lv_Int_I As Integer
    Dim Lv_Str_ZF As String
    On Error Resume Next
    For Lv_Int_I = 1 To Len(Lv_Str_HZ)
        Lv_Str_ZF = Mid(Lv_Str_HZ, Lv_Int_I, 1)
        If Asc(Lv_Str_ZF) < 0 Then
              If Asc(Left(Lv_Str_ZF, 1)) < Asc("°¡") Then   'LEFT£º·µ»Ø×Ö·û´®ÖдÓ×ó±ßËãÆðÖ¸¶¨ÊýÁ¿µÄ×Ö·û
                  PY = PY & "0"
              End If
              If Asc(Left(Lv_Str_ZF, 1)) >= Asc("°¡") And Asc(Left(Lv_Str_ZF, 1)) < Asc("°Å") Then
                  PY = PY & "A"
              End If
              If Asc(Left(Lv_Str_ZF, 1)) >= Asc("°Å") And Asc(Left(Lv_Str_ZF, 1)) < Asc("²Á") Then
                  PY = PY & "B"
                  
              End If
              If Asc(Left(Lv_Str_ZF, 1)) >= Asc("²Á") And Asc(Left(Lv_Str_ZF, 1)) < Asc("´î") Then
                  PY = PY & "C"
                  
              End If
              If Asc(Left(Lv_Str_ZF, 1)) >= Asc("´î") And Asc(Left(Lv_Str_ZF, 1)) < Asc("¶ê") Then
                  PY = PY & "D"
                  
              End If
              If Asc(Left(Lv_Str_ZF, 1)) >= Asc("¶ê") And Asc(Left(Lv_Str_ZF, 1)) < Asc("·¢") Then
                  PY = PY & "E"
                  
              End If