汉字转换成假名

Public Shared Function aa(ByVal inputString As String) As String

 

            Dim ObjExcel As Object
            ObjExcel = CreateObject("Excel.Application")
            Dim hanjiText As String '
            hanjiText = "正確性を確認" ' TextBox1.Text
            Dim kanaText As String '
            kanaText = ObjExcel.GetPhonetic(hanjiText)

 

            Dim hirakanaText As String
            hirakanaText = StrConv(kanaText, VbStrConv.Hiragana)

 

            Return hirakanaText
        End Function