Option Explicit
    Dim strField As String
    Dim strPlace As String
    Dim strXML As String
    Dim strType As String

Private Sub UserForm_Initialize()
    txtPlace.Value = "<< >>"
    txtXML.Value = "/root/"
    
    With cmbType
        .AddItem "Plain Text"
        .AddItem "Drop-Down"
    End With
End Sub

Private Sub cmdOK_Click()
    XMLField.Hide
   


'define strType
    If cmbType.Value = "Plain Text" _
        Then strType = "Plain"
    If cmbType.Value = "Drop-Down" _
        Then strType = "List"
'define other strings
    strField = txtField.Value
    strPlace = txtPlace.Value
    strXML = txtXML.Value

'add content control

With Selection.Range
    If strType = "Plain" _
        Then .ContentControls.Add (wdContentControlText)
    If strType = "List" _
        Then .ContentControls.Add (wdContentControlDropdownList)

End With
    Selection.ParentContentControl.Title = strField
    Selection.ParentContentControl.Tag = strField
    Selection.ParentContentControl.XMLMapping.SetMapping xPath:=strXML
    Selection.ParentContentControl.SetPlaceholderText Text:=strPlace

End Sub