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)
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)
hirakanaText = StrConv(kanaText, VbStrConv.Hiragana)
Return hirakanaText
End Function
End Function