主题：请教自定义函数为什么调用的时候提示错误？

以下内容为程序代码:

1 Function SEtclip(Formula)
2 '系统会在逐K线模式解释公式时的每个周期都会调用此函数一遍，因此设计时应该注重程序的执行效率，不要重复的执行一些没必要的代码
3 putclip=0
4
5 dim Label
6 dim Market
7 Result= Application.GetCurrentStock(Label,Market)
8 if Result = 0 then
9 msgbox "请选择一个品种"
10 end if
11
12 Set objIE = CreateObject("InternetExplorer.Application") '调用MSie的剪贴板实现复制股票代码
13 objIE.Navigate("about:blank")
14 objIE.document.parentwindow.clipboardData.SetData "text", Label
15 objIE.Quit
16
17 msgbox "已成功将"&Market&Label&"复制到粘贴板"
18
19 End Function
20