ActiveX automation object var is nothing error

All,

I create a macro years ago and it worked...however updated to the latest version of ER Studio (19.1) and now getting this error on this line of code:

Set MyDictionary = MyDiagram.Dictionary

    ' Determine Domains.

Set MyDomain = MyDictionary.Domains.Item("CreateDate")

MyDoctionary is coming back as nothing. I cannot remember how I created these dictionary items.

Thanks,
Real