Code example fails for `Masters.AddEx` Method

his code example in Masters.AddEx Method documentation fails. Not sure if the code example is incorrect or something wrong with Visio configuration.

I created a new Visio document and then ran the example code against the new document.

PublicSubAddEx_Example()Dim vsoMaster As Visio.Master    Set vsoMaster = Visio.ActiveDocument.Masters.AddEx(visTypeDataGraphic)
    Debug.Print vsoMaster.NameEnd Sub

I am using Visio 2013. I tried this on two machines and both fails.