输入汉字取拼音

Public Shared Function GetPinYin()Function GetPinYin(ByVal t1 As String) As String
        '取得输入行字的拼音码
        On Error Resume Next
        Dim sOne, sChar, sRet As String, i As Integer
        For i = 1 To Len(t1)
            sChar = Mid(t1, i, 1)
            sOne = ""
            If Asc(sChar) > 0 Then
                If UCase(sChar) <= "Z" And UCase(sChar) >= "A" Then
                    sOne = UCase(sChar)
                Else
                    sOne = ""
                End If
            ElseIf Asc(sChar) >= Asc("啊") And Asc(sChar) < Asc("芭") Then
                sOne = "A"
            ElseIf Asc(sChar) >= Asc("芭") And Asc(sChar) < Asc("擦") Then
                sOne = "B"
            ElseIf Asc(sChar) >= Asc("擦") And Asc(sChar) < Asc("搭") Then
                sOne = "C"
            ElseIf Asc(sChar) >= Asc("搭") And Asc(sChar) < Asc("蛾") Then
                sOne = "D"
            ElseIf Asc(sChar) >= Asc("蛾") And Asc(sChar) < Asc("发") Then
                sOne = "E"
            ElseIf Asc(sChar) >= Asc("发") And Asc(sChar) < Asc("噶") Then
                sOne = "F"
            ElseIf Asc(sChar) >= Asc("噶") And Asc(sChar) < Asc("哈") Then
                sOne = "G"
            ElseIf Asc(sChar) >= Asc("哈") And Asc(sChar) < Asc("击") Then
                sOne = "H"
            ElseIf Asc(sChar) >= Asc("击") And Asc(sChar) < Asc("喀") Then
                sOne = "J"
            ElseIf Asc(sChar) >= Asc("喀") And Asc(sChar) < Asc("垃") Then
                sOne = "K"
            ElseIf Asc(sChar) >= Asc("垃") And Asc(sChar) < Asc("妈") Then
                sOne = "L"
            ElseIf Asc(sChar) >= Asc("妈") And Asc(sChar) < Asc("拿") Then
                sOne = "M"
            ElseIf Asc(sChar) >= Asc("拿") And Asc(sChar) < Asc("哦") Then
                sOne = "N"
            ElseIf Asc(sChar) >= Asc("哦") And Asc(sChar) < Asc("啪") Then
                sOne = "O"
            ElseIf Asc(sChar) >= Asc("啪") And Asc(sChar) < Asc("期") Then
                sOne = "P"
            ElseIf Asc(sChar) >= Asc("期") And Asc(sChar) < Asc("然") Then
                sOne = "Q"
            ElseIf Asc(sChar) >= Asc("然") And Asc(sChar) < Asc("撒") Then
                sOne = "R"
            ElseIf Asc(sChar) >= Asc("撒") And Asc(sChar) < Asc("塌") Then
                sOne = "S"
            ElseIf Asc(sChar) >= Asc("塌") And Asc(sChar) < Asc("挖") Then
                sOne = "T"
            ElseIf Asc(sChar) >= Asc("挖") And Asc(sChar) < Asc("昔") Then
                sOne = "W"
            ElseIf Asc(sChar) >= Asc("昔") And Asc(sChar) < Asc("压") Then
                sOne = "X"
            ElseIf Asc(sChar) >= Asc("压") And Asc(sChar) < Asc("匝") Then
                sOne = "Y"
            ElseIf Asc(sChar) >= Asc("匝") Then
                sOne = "Z"
            End If
            sRet = sRet & sOne
        Next i
        Return sRet
    End Function

输入汉字取得它的拼音