[3booody]

تفضل اخي جرب هالكود وردلي النتيجة

كود :

Dim member_id = From str As String In TextBox1.Text.Split(vbNewLine) Select System.Text. _
                       RegularExpressions.Regex.Match(str, "member_id=(.+)&amp").Groups(1).Value
       ListBox1.Items.AddRange(member_id.ToArray)