Hi,

Try that:

Code:
Dim my_byte_value as byte

my_byte_value = 0

If Check1.Value = 1 Then  my_byte_value = my_byte_value + 1
If Check2.Value = 1 Then  my_byte_value = my_byte_value + 2
If Check3.Value = 1 Then  my_byte_value = my_byte_value + 4
If Check4.Value = 1 Then  my_byte_value = my_byte_value + 8
If Check5.Value = 1 Then  my_byte_value = my_byte_value + 16
If Check6.Value = 1 Then  my_byte_value = my_byte_value + 32
If Check7.Value = 1 Then  my_byte_value = my_byte_value + 64
If Check8.Value = 1 Then  my_byte_value = my_byte_value + 128
Best regards,

Luciano