Listbox Content Control - Reset default?

[KilpAr]

This works:

With ActiveDocument.ContentControls(2)
  .Type = wdContentControlText
  .Range.Text = ""
  .Type = wdContentControlDropdownList
End With