Berduş hocamızın dediği gibi tarih içinde bosmu fonksiyon eklenmiş ve bende teklemişim checkbox zannedip.
O satırı normal yapın.Birde fonksiyon adı daha mantıklı olması için Evet_Hayir gibi olabilir

Function Evet_Hayir(deger) As Byte

    ' 0 demek checkboxtaki tik olmayacak 1 se olacak demektir

    If deger = "Evet" Then Evet_Hayir = 0

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

End Function