vb子过程或函数未定义 “子过程或者函数未定义”

求助，“子过程或者函数未定义”
本人菜鸟，临危受命，写一小段vba，以前从来都没弄过这个东西。
现百度了一下。 Sub 宏1()
'
' 宏1 宏
'
C1 = Mid(E15, Find(aa, E15, 1), Find(dd, E15, 1) - Find(bb, E15, 1))
End Sub
就这么简单，编译的时候提示“子过程或者函数未定义”，
应该指的就是find函数，大牛们告诉我应该怎么办？谢谢了！

------最佳解决方案--------------------
查阅这个
------其他解决方案--------------------
Find函数不存在。

寻找下作者有没有给出Find的源代码，或者它的功能和定义是什么，按照功能和定义自己写一个。
------其他解决方案--------------------

查阅这个

谢谢您了，我下载看了一下是扫描版的图书，没有ctrl+F的功能呀。。。还希望您不吝赐教
------其他解决方案--------------------
------其他解决方案--------------------
在工作表中查找特定信息。

expression.Find(Arg1, Arg2, Arg3)

expression   必需。该表达式返回一个 WorksheetFunction 对象。

Arg1   String 类型，必需。工作表名称。

Arg2   String 类型，必需。单元格区域名称。

Arg3   Variant 类型，可选。精确限制查询的参数名称

------其他解决方案--------------------

在工作表中查找特定信息。

expression.Find(Arg1, Arg2, Arg3)

expression   必需。该表达式返回一个 WorksheetFunction 对象。

Arg1   String 类型，必需。工作表名称。

Arg2   String 类型，必需。单元格区域名称。

Arg3   Variant 类型，可选。精确限制查询的参数名称
……

谢谢您，
Arg1   String 类型，必需。工作表名称。

Arg2   String 类型，必需。单元格区域名称。

Arg3   Variant 类型，可选。精确限制查询的参数名称
这一块没太看懂，不知道是否可以根据我的那段破vba修改一下呢？
------其他解决方案--------------------
现在的情况是提示运行错误‘424’
------其他解决方案--------------------
Sub 宏1()
'
' 宏1 宏
'
C1 = Mid(E15, expression.Find(aa, E15, 1), expression.Find(dd, E15, 1) - expression.Find(bb, E15, 1))
End Sub
------其他解决方案--------------------
不知代码中aa,bb,dd是变量还是表名，如果是表名，你的引用应该 是“aa","bb","dd"
你看这样行不：
Range("C1") = Mid(Range("E15"), expression.Find(aa, Range("E15"), 1),expression.Find(dd, Range("E15"), 1) - expression.Find(bb, Range("E15"), 1))