Try this. if you want the first part of the separate_text to be returned, return splittext(0) in the third line
Public Function MyFind(separate_text As String) As String
splittext = Split(separate_text, "and")
MyFind = LTrim(splittext(1))
End Function