For Each loop with Email Items exiting after one item

I have the following VBA code that won't loop. It will delete the first item and then move on. I checked the count property of fldrFolder.Items and it shows several there: (strange that VBA isn't a choice when inserting a code block)

Dim appOutlook As New Outlook.Application
Dim nsMAPI As Outlook.Namespace
Dim fldrInbox As Outlook.Folder
Dim fldrFolder As Outlook.Folder
Dim miEmail As Outlook.MailItem

Set nsMAPI = appOutlook.GetNamespace("MAPI")
Set fldrInbox = nsMAPI.GetDefaultFolder(olFolderInbox)
Set fldrFolder = fldrInbox.Folders("LEAP Updates")

For Each miEmail In fldrFolder.Items
    miEmail.Delete
Next miEmail