source remoter vb.net o yeki bde Pls

                If InStr(a, "k#", CompareMethod.Text) <> 0 Then
                    Dim r As String = a.Substring(a.IndexOf("@conference.nimbuzz.com") + 24)
                    r = r.Substring(0, r.IndexOf(">") - 0)
                    Dim pdi As String
                    r = r.Substring(0, r.IndexOf("'") - 0)
                    Dim s() As String = Split(remoters.Text, "#")
                    For I = LBound(s) To UBound(s)
                        If s(I).ToString = r Then
                            pdi = a.Substring(a.IndexOf("#") + 1)
                            pdi = pdi.Substring(0, pdi.IndexOf("<") - 0)
                            x.Send("xml kik")
                            Exit For
                        End If
                    Next

x.Send("<iq to='" + Room.Text + "@conference.nimbuzz.com' type='set' id='itemmuc'><query xmlns='http://jabber.org/protocol/muc#admin'><item role='none' nick='" + pdi + "'><reason>: man kick kardam :P</reason></item></query></iq>")