Win10でExcel VBA GetPhoneticを使い フリガナ候補を全て連続で取得したいのにサンプルが正常動作しない Win7だとテストOK Win10だと次の候補を取得できない そんなテスト結果

テスト動画を冒頭に移動※先に観てもらう？
https://www.youtube.com/watch?v=JoidvQb2BIE
www.youtube.com
↑こんな感じの結果です。

下記質問をいただいたので、テストしてみる。

Sub aaa()

Dim strWORK As String

'呼び出しは簡単で、調べたい文字列を渡す
strWORK = Application.GetPhonetic("三流君")
While strWORK <> ""
Debug.Print strWORK
MsgBox strWORK
'次の候補を見たいときは、引数無しで呼び出す
strWORK = Application.GetPhonetic()
Wend

上記スクリプトの「三流君」の部分をいろいろな読み方ができる「亨」に変えてもトオルとしたか表示されませんでした。すべての読み方が取得できると書かれていますが、一つの読み方しか取得できませんでした。すべての読み方を取得するにはどうしたらいいでしょか。アドバイスを頂けないでしょうか。

google:GetPhonetic 全て できない
をキーワードに検索すると

http://officetanaka.net/excel/vba/tips/tips49.htm
officetanaka.net
より

※注意：これ、最近はできなくなったようですね。Excelというか、MS-IMEの仕様変更かもしれませんね。せっかくですから、コンテンツは残しておきます。

が見つかります。

気になったので、提示されたサンプルコードを私も実行してみました
※最近はできなくなった、 古いネットにつなげていないWin7でテストすると
動いたり、、、※※解決策になってないなぁ・・・

Win7の古いPCで実行※漢字変換 IME2010でした

テストで使用したコード

Option Explicit

Sub aaa()

    Dim strWORK As String
    Dim strNAME As String '名前
    '呼び出しは簡単で、調べたい文字列を渡す
    strNAME = InputBox("調べたい単語を入力して", "名前などを入力", "羽生")
    '↑羽生 将棋の はぶ先生、スケートの　はにゅう どちらが表示されるのかな？
    
    strWORK = Application.GetPhonetic(strNAME)
    While strWORK <> ""
        Debug.Print strWORK
        MsgBox strWORK
        '次の候補を見たいときは、引数無しで呼び出す
        strWORK = Application.GetPhonetic()
    Wend
    
End Sub

テスト動画
www.youtube.com
https://www.youtube.com/watch?v=JoidvQb2BIE
↑こんな感じの結果です。

次に、同じテストをWin10の環境で実行してみます。

まずいなぁ、本番の最新環境で同じコードが動かないのかぁ
おっと、解決策を求められたのに
できません の 小僧の言い訳動画になってしまった。
なんとか、できる方法を探って、
おじさんとしては経験値を示してカッコつけたいところだが、、、

以上、現状報告の意味ない動画でした

ガタガタいってないで、解決策や逃げてを探せよ。
フリガナ変換用のWin7中古PCを買ってくださいとは客先に言えないしなぁ・・・