Son olarak alttaki koduda ekleyeyim.İf kısımlarına eklemeler yapabilirsiniz hücredeki verye göre.

Function Bosmu(deger) As Byte

    ' 0 demek checkboxtaki tik olmayacak 1 se olacak demektir

    If deger = "Evet" Then Bosmu = 0

    If deger = "Hayýr" Then Bosmu = 1

End Function