office outlook 2003 VBA 创建 MailItem 问题

我的在outlook里想写一个事件,当打开邮件的时候进行一些处理,于是我写了如下的代码,可是并没有达到预期的效果,肯定是哪里写错了,我估计是红色的部分,可是不知道怎么改正,请高手帮忙
Dim WithEvents myMailItem As Outlook.MailItem

Private Sub Application_Startup()
    Set myMailItem = Application.CreateItem(olMailItem)
    MsgBox "Outlook is opend!"   
End Sub

Private Sub myMailItem_Read()
    MsgBox "Open a mail!"
End Sub