Using oSearch As New Search(g_oLFConnection.Session)
    oSearch.Command = "{LF:tags = ""Delete Me""}"
    oSearch.Run()
    oSearchListingSettings = New SearchListingSettings
    oSearchListingSettings.CursorType = ListingCursorType.ForwardOnly
    Using oSearchResultsListing As SearchResultListing = oSearch.GetResultListing(oSearchListingSettings)
        If MsgBox(String.Format("LAST CHANCE!{0}Are you sure you want to delete {1} records?", vbNewLine, oSearchResultsListing.RowCount.ToString), MsgBoxStyle.OkCancel, "Clear Down") = MsgBoxResult.Ok Then
            For Each oEntryListingRow In oSearchResultsListing
                Try
                    Entry.Delete(oEntryListingRow(SystemColumn.Id), EntryNameOption.ForcePurge, g_oLFConnection.Session)
                Catch LFLockex As Laserfiche.RepositoryAccess.LockedObjectException
                    msgbox(LFLockex.Message)
                Catch LFex As Laserfiche.RepositoryAccess.LaserficheRepositoryException
                    msgbox(LFex.Message)
                Catch ex As Exception
                    msgbox(ex.Message)
                End Try
            Next
        End If
    End Using
End Using