If not 'MyComboBoxName'.Value = "'1/3 persons name'" then
'MyCheckBoxName'.Value = 1
end if
This would go in your ComboBox change event.