@feraz bey bence çalışmanıza eklenmesi gereken tek kod

Aranan = Replace(Replace(Aranan, "=<", "<="), "=>", ">=")

çünkü Access eşittirin yeri değişince maalesef hatalı sonuç veriyor