Dim olApp = New Outlook.Application()
        Dim oNs As Outlook.NameSpace
        Dim oDeletedItems As Outlook.MAPIFolder
        Dim olBinItems As Outlook.Items
        Dim oTermin As Outlook.AppointmentItem
 
        oNs = olApp.GetNamespace("mapi")
 
        oDeletedItems = oNs.GetDefaultFolder( _
          Outlook.OlDefaultFolders.olFolderDeletedItems)
 
        olBinItems = oDeletedItems.Items
 
        For Each oTermin In olBinItems
 
            Select Case oTermin.Subject
                Case "Subject 1"
                   oTermin.Delete()
                Case "Subject 2"
                   oTermin.Delete()
                Case "Subject 3)"
                   oTermin.Delete()
            End Select
        Next