[اليوم السابع]

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

كود :

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)

اولا بارك الله لك النتيجه من الواقع الظاهري تمام ولكن ينقصها شيئ اولا هو ازاله كل العناصر الفارغه من الليست بوكس 
ثانيا ازاله العناصر المتكرره في الليست بوكس