I have a macro that deletes mail in the junk folder, depending on various
conditions I set.  It works fine in Outlook 2003 but seems to make Outlook
Enterprise 2007 hang.

It looks like this and any help would be much appreciated:

Public WithEvents myOlItems As Outlook.Items

Public Sub Application_Startup()
   Dim myOlApp As New Outlook.Application
   Set myOlItems = Outlook.Session.GetDefaultFolder(olFolderJunk).Items
   Set myInItems = Outlook.Session.GetDefaultFolder(olFolderInbox).Items
End Sub

Private Sub myOlItems_ItemAdd(ByVal Item As Object)
   Dim myOlApp As Outlook.Application
   Dim junkFolder, deletedItemsFolder  As Outlook.MAPIFolder
   Dim junkItem, deleteItem            As Object
   Dim pos, count                      As Integer
   Set deletedItemsFolder = Application.GetNamespace("MAPI").
GetDefaultFolder(olFolderDeletedItems)
   Set junkFolder = Application.GetNamespace("MAPI").GetDefaultFolder
(olFolderJunk)

' Specify all the words to check for in the subject or body and we'll delete
the email if found
   wordCheck = Array("accessories", "end")

   For Each junkItem In junkFolder.Items  
       On Error Resume Next              
' Check the Subject and Body for all the words we specified in the Array
checkWords:
       pos = InStr(1, junkItem.Subject, wordCheck(count), 1)   ' Is the
string in the Subject?
       If pos > 0 Then GoTo deleteJunkItem                     ' Yes, go
delete it
       pos = InStr(1, junkItem.Body, wordCheck(count), 1)      ' Is the
string in the Body?
       If pos > 0 Then GoTo deleteJunkItem                     ' Yes, go
delete it
       count = count + 1
       If wordCheck(count) <> "end" Then GoTo checkWords       ' Loop back
if there's more words
       GoTo doNext

deleteJunkItem:
       entryID = junkItem.entryID                              ' Store item
entry id
       junkItem.Delete                                         ' Move the
item to the Deleted Items folder

doNext: Next                                                    ' Go look at
the next item in Junk Mail
   
' Now delete everything in the Deleted Items folder, which means anything I
deleted manually too
   For Each Item In deletedItemsFolder.Items
       Item.Delete
   Next

   Set junkItem = Nothing
   Set junkFolder = Nothing
   Set deleteItem = Nothing
   Set deletedItemsFolder = Nothing

End Sub