【VBA】珍しい名前(漢字)のフリガナを正しく取得できるか調べてみました

VBAコード

今回は
　・B列「名前(漢字)」の漢字を使用して
　・C列「名前(カナ)」にフリガナを設定
してみます。

珍しい名前の例として
　・武井 咲
　・柳楽 優弥
　・我妻 善逸
を使用します(敬称略)。

Sub sample()

    'B列「名前(漢字)」のフリガナをC列「名前(カナ)」に設定する
    With ThisWorkbook.Worksheets("sample")
        .Range("C5") = Application.GetPhonetic(.Range("B5"))
        .Range("C6") = Application.GetPhonetic(.Range("B6"))
        .Range("C7") = Application.GetPhonetic(.Range("B7"))
    End With
 
End Sub

実行結果

上記のVBAコードを実行してみると、以下の結果になりました。

名前(漢字)	実行結果	正解
武井 咲	タケイ　ザキ	タケイ　エミ
我妻 善逸	ワガツマ　ゼンイツ	アガツマ　ゼンイツ
柳楽 優弥	ナギラ　ユウヤ	ヤギラ　ユウヤ

検証結果

珍しい名前の場合、フリガナを正しく取得することは出来ません。
※同じ漢字でも複数の読み方がある以上、当然と言えば当然な気はします。