This piece code will remove the first item in the users Inbox.
Code:
Set myOLApp = CreateObject("Outlook.Application")
Set myNameSpace = myOLApp.GetNamespace("MAPI")
Set myInboxFolder = myNameSpace.GetDefaultFolder(olFolderInbox)
Set myItem = myInboxFolder.Items(0)
myItem.Delete