excel 2007 vba 使用全局变量

我在模块1中写的代码
Option Explicit
Public iii As Integer
Sub setIII()
iii = 10
End Sub

Sub getIII()
MsgBox iii
End Sub
调用到getIII中时，弹出的窗口里为空，调试iii显示<溢出上下文>
在网上查到的例子都是这么写的

---

先运行一次 setIII ，执行给 iii 赋值，然后再运行 getIII
即，颂判鼠标点在 setIII 中，按一次凯悉F5 ，然后再鼠标点在野孙改 getIII 中，按一次F5

---

excel 2003测试正常，没有出现错误，窗口正常显示结果

---