Hello,
Could anyone please tell me what code i would use in this situation.

I have a list of about 8 flowers in checkboxes but i have instructions to only allow 4 to be checked at a time.

this is the kind of thing i have so far...

<Private Sub Flowers_Click()
Dim FourFlowers As Boolean
Dim Payment As Boolean
Dim Flowers(4) As String
Dim count As Integer
count = 0
count = 0 - 3
Dim Flowers(4) As String

count = >4


If chkRoses_checked = True Then
    Flowers(count) = "Roses"
    count = count + 1
Else

If chkScentedLily_checked = True Then
    Flowers(count) = "ScentedLily"
    count = count + 1

and so on and so on through all the flowers...


ideally id like a message box to come up once 4 flowers have been ticked so say they have hit the maximum..

Suggestions much appreciated :D