Create FindEmailFunction.bas