[3booody]

غير ال 7 اسطر وخليها بهذا الشكل ان شاء الله تنجح

كود :

For Each txt As String In TextBox1.Text.Split(vbNewLine)
           Dim t As String = System.Text. _
                      RegularExpressions.Regex.Match(txt, "member_id=(.+)&amp").Groups(1).Value
           If Not t = "" And Not ListBox1.Items.Contains(t) Then
               ListBox1.Items.Add(txt)
           End If
       Next