找到包含部分文本值的行，返回行号

I am trying to write a simple VBA function that will return the first row from a range on a separate sheet that contains a text value, but may not be an exact 1 for 1 match. for example: 'Farm' is found in 'Farm123'I am trying to write a simple VBA function that