用VBA使用消息输出功能失败。　[金字塔]

Sub time()
    Call Application.SetTimer(0,2*1000)      '设置一个0号计时器，间隔2秒执行一次
    Call Application.Settimer(9,5*1000)      '设置一个9号计时器，间隔5秒执行一次
End Sub
 
'下面的过程是计时器循环体,我让计时器显示每次触发的时间，你看看是不是间隔设定的秒数就触发。
Sub Application_Timer(ID)
    If ID=0 then
        Application.msgout   ",0号计时器触发了"
    end if
    If ID=9 then
        Application.msgout   ",9号计时器触发了"
    end if
End Sub

按说应该输出消息，但实际消息框无反应。我尝试着用论坛里所说的删除注册表中的weistock，也没有效果。