سؤال حول التعامل مع النصوص

السلام عليكم ورحمة الله وبركاته

أريد مساعدتي في المعادلة التالية:

مربع نص مؤلف من ثلاثة أجزاء (تفصل بينها إشارة ناقص) وكل جزء أربع خانات بهذا الشكل:

1111 - 2222 - 3333

الجزء الأول عشوائي والجزء الثالث عشوائي

أما الجزء الثاني = الجزء الأول + الجزء الثالث - 2000

وفي كل مرة أضغط زر موافق يعطيني أرقاماً جديدة بشرط أن تكون وفق الشروط السابقة

طبعاً أنا حاولت ومثالي بالمرفقات ولكن فشلت في ذلك

فأرجو التعديل عليه

:wacko:

سؤال آخر:

كيف أجعل مربع النص يعطيني رقماً عشوائيا مؤلفاً من أربعة خانات؟

جربت هذه الطريقة وهي تعمل

Do
Text1.Text = 11111 * Rnd + 0
Loop Until Len(Text1.Text) = 4

ألا يوجد غيرها؟

تقبل الله صيامكم