İnvalid Use Of Null Hatası Alıyorum

merhaba arkadaşlar bu hatayı alıyorum Dlookup fonksiyonumda , her şey gayet iyi gidiyordu burada takıldım, yardımcı olursanız çok sevinirim, dosya ekte. ayrıca ilk baştaki if else koşulum işlemiyor, metin kutularının boş olup olmamasını denetlemiyor, oraya da bi bakabilir misiniz?