Public Sub Cancel_Search(ByVal ID As Integer)

    Dim LoopC As Long
    Dim LoopX As Long

    With Retos_Searching

        .Users_Searching = .Users_Searching - 1

        For LoopC = 1 To .Users_Searching * Users_Arena
            If .Searching(LoopC) = ID Then
                For LoopX = LoopC To .Users_Searching * Users_Arena - 1
                    .Searching(LoopX) = .Searching(LoopX + 1)
                Next LoopX
                    .Searching(20) = 0
                Exit For
            End If
        Next LoopC

    End With
End Sub