Routine e VBA.Ubound

Vorrei usare la seguente routine per
elencare degli antonimi di un vocabolo inglese

Sub ELENCAZIONEPAROLEContrari()
    Dim Alist As Object
    Dim MEssaggio As String
    Dim a As Long
      Alist = SynonymInfo(Word:="big", LanguageID:=wdEnglishUS).AntonymList
           'For a = 1 To Alist
           For a = 1 To VBA.UBound(Alist)
              MEssaggio = MsgBox(Alist(a))
           Next a
End Sub

ma quando avvio questa routine mi esce un messaggio che evidenzia la parola VBA.Ubound
e dice: "Impossibile trovare il metodo o il membro dei dati".
Dove sbaglio?

I tag CODE sono sbagliati!

Hai provato solo con

UBound(Alist)

?

Originariamente inviato da roccolamann

Vorrei usare la seguente routine per elencare degli antonimi di un vocabolo inglese

    Dim Alist As Object
...
      Alist = SynonymInfo(Word:="big", LanguageID:=wdEnglishUS).AntonymList
...
           For a = 1 To VBA.UBound(Alist)
...

SynonymInfo.AntonymList property (Word)
Variant, non Object e verifica che l'array abbia elementi.
In quella pagina trovi gli esempi per il tuo caso.