Sub OnExitDDListA()
Dim oDD As DropDown
Dim oFFs As FormFields
Dim StrNew As String
Set oDD = ActiveDocument.FormFields("NAME").DropDown
'Clear previous list
oDD.ListEntries.Clear
'Repopulate list based on user selection
Select Case ActiveDocument.FormFields("TYPE").Result
  Case "Hotels"
    With oDD.ListEntries
      .Add "Best Western Hotel"
      .Add "BonAir Hotel"
      .Add "Econo Lodge"
      .Add "Elect Inn"
      .Add "Glenmore Inn"
      .Add "HoBo Lodge"
      .Add "Holiday Inn"
      .Add "Howard Johnson Inn"
      .Add "Travellers Inn"
      .Add "Other"
    End With
    With ActiveDocument.FormFields("TYPE").DropDown
      If .Value = 10 Then
        StrNew = Trim(InputBox("Input your text", "Free text input"))
        If StrNew = vbNullString Then
          .ListEntries(10).Delete
          .ListEntries.Add StrNew
          .Value = 10
        End If
    End With
  Case "Air Fare"
  Case "Certificates"
    With oDD.ListEntries
      .Add "Aerial Platform"
      .Add "Fall Protection"
      .Add "WHMIS"
      .Add "Other"
    End With
  End Select
lbl_Exit:
Exit Sub
End Sub