VBA: GetPhonetic：ふりがなを求める

Public Function testKana()
    
    Dim xlObj As Object
    Set xlObj = CreateObject("Excel.Application")
    
    With xlObj
        Debug.Print .GetPhonetic("半田")
        Debug.Print .GetPhonetic("羅針盤")
        Debug.Print .GetPhonetic("継続は力なり")
        Debug.Print .GetPhonetic("報恩感謝")
    End With
    
    Set xlObj = Nothing
End Function