VB中获得汉字的首音码(包含二级字库)

Option Explicit
'==================================================
' 函数: ReturnSM
'
' 功能: 返回字符串中没个字符的拼音声母第一个字母
'
' 注意: 该函数只能处理3755个常用汉字(B0 - D7)
' 若超出函数的范围将返回常数 ERR_RESULT$
'
' 入口: Str 待处理的字符串
'
Public Function ReturnSM$(ByVal Str$)
    '-------------------------------------------------
    Dim tmpStr$, tmpASCII&, ReStr$
    Dim i As Integer
   
    ReStr$ = ""
    ReturnSM$ = ""
   
    For i = 1 To Len(Str$)
   
        ' 取出字符串中的第一个字符
        tmpStr$ = Mid$(Str$, i, 1)
       
        ' 若tmpStr长度为 0 ,则函数无返回值
        If Len(tmpStr$) <= 0 Then Exit Function
       
        ' 返回字符映射表中的字符码
        tmpASCII& = VBA.Asc(tmpStr$)
       
        ' 处理tmpStr,并返回其声母,若超出处理范围,则返回错误
        Select Case tmpASCII&
        Case &HB0A1 To &HB0C4
       
            ReStr$ = "A"
       
        Case &HB0C5 To &HB0FE, &HB1A1 To &HB1FE, &HB2A1 To &HB2C0
       
            ReStr$ = "B"
       
        Case &HB2C1