It would be better to select the control by name or tag, however

Dim obj As ContentControl
    Set obj = ActiveDocument.ContentControls(2)
    obj.DropdownListEntries(1).Select