Private Sub Document_Close()
Dim Rslt As Long, bStatus As Boolean
With ActiveDocument
    bStatus = (.FormFields("mob_ph_check").CheckBox.Value = False And _
      .FormFields("broad_check").CheckBox.Value = False And _
      .FormFields("car_check").CheckBox.Value = False And _
      .FormFields("vsp_check").CheckBox.Value = False)
    Select Case .FormFields("drop").Result
    Case "Internal"
    If bStatus = True Then
        If MsgBox("Are you sure that contract should be without benefits?", vbYesNo) = vbYes Then .Save
    Else
      .Save
    End If
    Case "Permanent"
    If bStatus = True Then
        If MsgBox("Are you sure?", vbYesNo) = vbYes Then .Save
    Else
      .Save
    End If
  End Select
End With
End Sub