Maybe something in the GotFocus event, like:
Private Sub ComboName_GotFocus()
If CheckBoxName = "True" Then
ListName.RowSource = "0,25,50,75,100"
Else
ListName.RowSource = "0,25,50,75"
End If
End Sub
(With the control RowSourceType property set to Value List)