在EXCEL里如何提拼音的第一个字母

兄弟,我只知道在EXCEL里用宏写一个函数来取汉字的第一拼音,不知道有专门的特定函数能做:我以前写的函数如下:
Public Function uf_getfirstletter(ByVal ls_reletterletter As String) As String
Dim i As Long
Dim ls_reletter As String

ls_reletter = ""

If Len(ls_reletterletter) = 0 Then
uf_getfirstletter = ""
Else
If LenB(ls_reletterletter) <> Len(ls_reletterletter) * 2 Then
uf_getfirstletter = "-1"
Else
For i = 1 To Len(ls_reletterletter)
Select Case Asc(Mid(ls_reletterletter, i, 1))
Case Is >= Asc("匝")
ls_reletter = ls_reletter + "Z"
Case Is >= Asc("丫")
ls_reletter = ls_reletter + "Y"
Case Is >= Asc("夕")
ls_reletter = ls_reletter + "X"
Case Is >= Asc("