VBA Range.Find method returns error when text exists

Question

I am trying to program a UDF for a Case-sensitive VLOOKUP. The goal is to mimic the VLOOKUP arguments, but to return only if a case-sensitive match is