This assumes 4 checkboxes
'Obviously only declare the constants that will need to be checked and give them descriptive names
Const condition1 As Integer = 1
Const condition2 As Integer = 2
Const condition3 As Integer = 3
Const condition4 As Integer = 4
Const condition5 As Integer = 5
Const condition6 As Integer = 6
Const condition7 As Integer = 7
Const condition8 As Integer = 8
Const condition9 As Integer = 9
Const condition10 As Integer = 10
Const condition11 As Integer = 11
Const condition12 As Integer = 12
Const condition13 As Integer = 13
Const condition14 As Integer = 14
Const condition15 As Integer = 15
Dim IntVar As Integer = 0
If cb1.Checked Then IntVar = 1
If cb2.Checked Then IntVar += 2 'equivalent in thiscase to ORing
If cb3.Checked Then IntVar += 4 'equivalent in thiscase to ORing
If cb4.Checked Then IntVar += 8 'equivalent in thiscase to ORing
'Obviously only check the conditions that are of interest
Select Case IntVar
Case 1
Case 2
.
.
Case 14
Case 15
Case Else 'If all possible conditions are not being individually checked
End Select
Hope this helps.