Function numofbits(bits As Long) As Long
bits = (bits And &h55555555) + (bits >> 1 And &h55555555)
bits = (bits And &h33333333) + (bits >> 2 And &h33333333)
bits = (bits And &h0f0f0f0f) + (bits >> 4 And &h0f0f0f0f)
bits = (bits And &h00ff00ff) + (bits >> 8 And &h00ff00ff)
numofbits = (bits And &h0000ffff) + (bits >>16 And &h0000ffff)
End Function