RemoveChoice Method
Removes the specified choice from the specified field.
expression.RemoveChoice(Index)
expression Required. An expression that returns one of the objects in the Applies To list.
Index Required. A Long that represents the position of the choice within the array.
Example
The following example removes the first choice from the NewChoiceField field in the first list of the active Web site.
Sub RemoveChoice()
'Removes first choice from array
Dim objApp As FrontPage.Application
Dim objListFields As listFields
Dim objListField As ListFieldChoice
Set objApp = FrontPage.Application
Set objListFields = objApp.ActiveWeb.Lists.Item(0).Fields
Set objListField = objListFields.Item("NewChoiceField")
'Remove first choice in list
objListField.RemoveChoice Index:=0
End Sub