Private Sub CheckData(ByVal a As String)
        Dim befehl() As String
        Dim u As Integer
        befehl = a.Split(" ")
        For u = 0 To befehl.Length - 1
            befehl(u) = HttpUtility.UrlDecode(befehl(u))
        Next
        Select Case befehl(1)
            Case "players"
                For u = 1 To CInt(befehl(4).Split(":")(1))
                    Dim sq As New SqueezeBox
                    sq.PlayerIndex = befehl(3 + u * 1).Split(":")(1)
                    sq.PlayerID = befehl(3 + u * 2).Split(":")(1)
                    ' ....
                Next
        End Select
    End Sub