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