Is this what you're after?

Create a form with three checkboxes named 'ApprChBox', 'EditChBox', and
'RevwChBox', and a combobox named 'TheListCombo' and put this code in the
form:

'-->In a form
Private Sub ApprChBox_Change()
Dim A$
'Save the last selected item
A$ = TheListCombo.Text

'Clear the list
TheListCombo.Clear

'Add Approved names if checked
If ApprChBox.Value = True Then
   Call TheListCombo.AddItem("Appr1", TheListCombo.ListCount)
   Call TheListCombo.AddItem("Appr2", TheListCombo.ListCount)
End If
'Add Edit names if checked
If EditChBox.Value = True Then
   Call TheListCombo.AddItem("Edit1", TheListCombo.ListCount)
   Call TheListCombo.AddItem("Edit2", TheListCombo.ListCount)
End If
'Add Reviewed names if checked
If RevwChBox.Value = True Then
   Call TheListCombo.AddItem("Review1", TheListCombo.ListCount)
   Call TheListCombo.AddItem("Review2", TheListCombo.ListCount)
End If

'If the last selected item is in new list then leave, if not then delete
For I = 0 To TheListCombo.ListCount - 1
   If LCase(TheListCombo.List(I)) = LCase(A$) Then
       TheListCombo.Text = A$
       Exit For
   End If
Next I
End Sub
Private Sub EditChBox_Change(): ApprChBox_Change
End Sub
Private Sub RevwChBox_Change(): ApprChBox_Change
End Sub
'-->End of Code

I hope this helps you any