VBA для обработки писем

[test009]

Пытаюсь обрабатывать все приходящие письма таким кодом:
Public WithEvents objIncomingItems As Outlook.Items

Private Sub Application_Startup()
Set objIncomingItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub


Public Sub MySub(ByVal objItem As Object)
MsgBox 111
End Sub


Private Sub objIncomingItems_ItemAdd(ByVal objItem As Object)
MySub (objItem)
End Sub


Хочу при событии ItemAdd вызвать свою процедуру, передав ей аргумент - письмо outlook, и дальше там заложить свою логику.
Когда приходит письмо, этот код выдает ошибку Run time error 424: Object required, ссылаясь на MySub (objItem)

Можете объяснить, что не так делаю?