excel提取漢字拼音首字母的VBA代碼

提取漢字拼音首字母的VBA代碼：
Option Explicit
Function PY(TT As String) As Variant '自定義函數，目的：把一組漢字變為一組漢字拼音的第一個字母。
Dim i%, temp$
    PY = ""
    For i = 1 To Len(TT)
         temp = Asc(Mid$(TT, i, 1))
         If temp > 255 Or temp < 0 Then   '是漢字嗎？