burada eval() fonksiyonunu da kullanabilirdiniz onu neden kullanmadınız? mesajınızdaki kodda kullanmışsınız:

Hane = IIf(Eval(Weekday(DateSerial(Left(Zaman, 4), Right(Zaman, 2), Sayac), vbMonday) & " In (5,6,7)"), 1, 0)

---

If Eval("'" & Veri("G" & Sayac) & "' in (""N"",""B"")") Then

gibi