تنظیم متن در لیست باکس

سلام
من توی یه تکست باکس چند خط متن دارم که توی این خط ها نام چند تا آدرس وب هست .

حال میخوام وقتی که رو دکمه بزنم نام آدرس ها رو وارد کنه . ( بدون تکرار )
چون خودم که میزنم همش نام اولین آدرس وب که توی متن هست رو وارد میکنه .

میخوام یه جوری نام همه آدرس های وب رو جمع کنه و بذاره تو لیست باکس .
همین.

مرسی.

اینم سورس :

کد:

---

http://www.mediafire.com/?w3jitl2winh

---

منم همچین مشکلی رو دارم اگه کسی بگه عالی میشه .

از نوشته ها که چیزی نفهمیدم.
لینک دانلودشم مثل اینکه خرابه.

ویرایش: الان امتحان کردم دانلود شد.

دو تا شد.
پایینی درسته.

من کدهارو به صورت زیر تغییر دادم. الان جواب میده. البته یه راه ساده تر هم هست که اونم تا شب میزارم.
این کد درسته کارم میکنه ولی پایینیه منطقی تره. (به خاطره تغییری که تو while دادم)

کد:

---

    Dim Find As Integer, Fhttp As Integer, Ftarhet As Integer
    Dim CHK As Boolean
   
    Do While CHK = False
        Fhttp = InStr(Ftarget + 1, T1.Text, "<a href=")
        If Fhttp = 0 Then Exit Do
        Ftarget = InStr(Fhttp + 1, T1.Text, " target")
        T2.Text = Mid(T1.Text, Fhttp + 9, (Ftarget - 1) - (Fhttp + 9))
        List1.AddItem T2.Text
    Loop

---

[QUOTE=VBYOFSKI;4379106]من کدهارو به صورت زیر تغییر دادم. الان جواب میده. البته یه راه ساده تر هم هست که اونم تا شب میزارم.

کد:

---

    Dim Fhttp As Integer, Ftarget As Integer
   
    Do
        Fhttp = InStr(Ftarget + 1, T1.Text, "<a href=")
        If Fhttp = 0 Then Exit Do
        Ftarget = InStr(Fhttp + 1, T1.Text, " target")
        T2.Text = Mid(T1.Text, Fhttp + 9, (Ftarget - 1) - (Fhttp + 9))
        List1.AddItem T2.Text
    Loop While Fhttp > 0

---