مرجع سورس های ویژوال بیسیک ( درخواست سورس )

[haiscan]

سلام
من یک برنامه (جهت دست گرمی !) ساخته ام که از کاربر 2 عدد گرفته و کاربر پس از کلیک بر روی command1 تمامی اعداد صحیح بین آن دو را در Text1 قرار داده و از بین همین اعداد , اعدادی که قابل تقسیم به 5 و 3 هستند را جدا کرده و در Text2 قرار می دهد . حالا سوال من این است که من نیاز دارم کاربر با کلیک بر روی Command2 هر عددی که در Text2 موجود است را با Text1 مقایسه کرده و آن مقدار را از Text1حذف کرده و باقی مانده را در Text3 قرار دهد . لازم به ذکر است هر عدد به طور جداگانه و در یک خط در هر جعبه تکست موجود است . فقط می خواهم بدانم چه راه حلی برای Text3 بدست آورم .
مثال : (راهنما : Label1.catiopn = "1" و دو جعبه تکست 4 و 5 برای دو عدد دلخواه کاربر است)
_______________________________
label1.caption = Text1.text
if Label1.caption = Text2.text then
Exit sub
Else
for i = Text4.text to Text5.text
Label1.caption = Label1.caption + 1
Text1.text = Text1.text + Label1.caption + VbNewLine
Next i
End if
______________________________
مثال عملی : مثلا ما اعداد 5 الی 20 را در نظر می گیریم . خوب , اعدادی که در Text1 و Text2 قرار میگیرند دقیقا به صورت زیر خواهد بود :

Text1 = 5 - 6 - 7 - 8 - 9 - 10 - 11 - 12 - 13 - 14 - 15 - 16 - 17 - 18 - 19 - 20

Text2 = 5 - 6 - 9 - 10 - 12 - 15 - 18 - 20

مشکل من هم همین است که چطوری می تونم از مقایسه Text1 و Text2 با هم به جواب زیر برسم
Text3 = 7 - 8 - 11 - 13 - 14 - 16 - 17 - 19
یادآوری می کنم من نیاز دارم آن دو تکست با یکدیگر مقایسه شوند .
از لطفتون ممنون .