VBA中Application的问题

Question

Sub statusbar()

oldstatusbar = Application.DisplayStatusBar

Application.DisplayStatusBar = True

Application.statusbar = "system is computing,please waiting"

End Sub

请问大家，本人在自学VBA，学到了Applicants对象部分，照着书中的例子编了个如上的小程序，是有关改变状态栏显示内容的，但每次运行都显示“编译错误，方法和数据成员未找到”，其它类似的Application程序都有这样的显示，不知道为什么，请指教。