Adding values with code

hi all

I have a simple user form that has 30 check boxes
if they are ticked it's worth 1 pt

i'm looking for the quickest way to add all the checkboxes values

i could use

Dim result as long

Result = 0
if checkbox1.value = true then
Result = Result + 1

etc.

how could i write it so it says something like

for _every time a box is true add 1

Any help

the reason i ask is the checkboxes may increase to 50 or 60

cheers ian