Excel, VBA, UI Automation を使用して、コンボボックス内の選択肢をすべてを取得

###前提・実現したいこと
Excel, VBA, UiAutomation を使用して、コンボボックス内の選択肢をすべてを取得したいのですが、方法がわかりません。
教えてください。
例：　メモ帳のフォントダイアログの文字セット

###発生している問題・エラーメッセージ
下記ソースコードの以下で、NOTHING になってしまいます。
Set accComboBoxCharacterSet = aptn.GetIAccessible

accComboBoxCharacterSet が、NOTHING の為、次の for 文でエラーとなります

実行時エラー '91':
オブジェクト変数または With ブロック変数が設定されていません。

###該当のソースコード

Option Explicit

'下記サイトのソースコードをもとに作成
'[Word VBA]ルビ(ふりがな)ダイアログの操作に挑む
'・https://www.ka-net.org/blog/?p=6375
'
'以下､参照設定済
'・UIAutoamtionClient
'・Windows\System32\oleacc.dll

Sub main()
    Dim uiAuto As CUIAutomation
    Dim elmRoot As IUIAutomationElement
    Dim elmFontDialog As IUIAutomationElement   'フォントダイアログ
    Dim elmComboBoxCharacterSet As IUIAutomationElement '文字セットコンボボックス
    
    Dim aptn As IUIAutomationLegacyIAccessiblePattern
    Dim accComboBoxCharacterSet As IAccessible
    
    Dim i As Long
    
    Set uiAuto = New CUIAutomation
    Set elmRoot = uiAuto.GetRootElement
    
    'フォントダイアログを取得
    While elmFontDialog Is Nothing
        Set elmFontDialog = GetElement(uiAuto, elmRoot, UIA_NamePropertyId, "フォント", UIA_WindowControlTypeId)
        DoEvents
    Wend
    
    '[文字セット]コンボボックス取得
    Set elmComboBoxCharacterSet = GetElement(uiAuto, elmFontDialog, UIA_NamePropertyId, "文字セット(R):", UIA_ComboBoxControlTypeId)
    Set aptn = elmComboBoxCharacterSet.GetCurrentPattern(UIA_LegacyIAccessiblePatternId)

    Debug.Print aptn.CurrentName        ' 「文字セット(R):」を取得できている
    Debug.Print aptn.CurrentValue        ' 「欧文」を取得できている

    Set accComboBoxCharacterSet = aptn.GetIAccessible    
    ' ここで、accComboBoxCharacterSet は、NOTHING になっている
    
    ' accComboBoxCharacterSet が、NOTHING の為、以下のエラーとなる
    ' 実行時エラー '91':
    ' オブジェクト変数または With ブロック変数が設定されていません。
    ' ↓
    For i = 1 To accComboBoxCharacterSet.accChildCount
        Debug.Print accComboBoxCharacterSet.accName(i)
    Next

End Sub

'下記サイトのソースコードを編集なしで引用
'[Word VBA]ルビ(ふりがな)ダイアログの操作に挑む
'・https://www.ka-net.org/blog/?p=6375
Private Function GetElement(ByVal uiAuto As CUIAutomation, _
                            ByVal elmParent As IUIAutomationElement, _
                            ByVal propertyId As Long, _
                            ByVal propertyValue As Variant, _
                            Optional ByVal ctrlType As Long = 0)
    Dim cndFirst As IUIAutomationCondition
    Dim cndSecond As IUIAutomationCondition
    Set cndFirst = uiAuto.CreatePropertyCondition(propertyId, propertyValue)
    If ctrlType <> 0 Then
        Set cndSecond = uiAuto.CreatePropertyCondition(UIA_ControlTypePropertyId, ctrlType)
        Set cndFirst = uiAuto.CreateAndCondition(cndFirst, cndSecond)
    End If
    Set GetElement = elmParent.FindFirst(TreeScope_Subtree, cndFirst)
End Function

###試したこと

###補足情報(言語/FW/ツール等のバージョンなど)
こちらの方のソースコードを参考にしました。
[Word VBA]ルビ(ふりがな)ダイアログの操作に挑む
https://www.ka-net.org/blog/?p=6375

他にも、以下のサイト(VBA でないものも有)も参照しました。
これらのリプレースでも構いません。
ComboBoxのUIAutomation
http://bbs.wankuma.com/index.cgi?mode=al2&namber=49011&KLOG=83

http://web.archive.org/web/20130322175258/http:/www.moug.net/faq/viewtopic.php?t=65909