[اسلام الكبابى]

لدى جملة طويييييييلة بسبب أرقامها الكثيييييرة أحتاجها كثيرآ فى الكود

وأريد اخنصارها بدلآ من تكرارها بنفس هذا الطووووول

كود :

X = Val(Text1.Text)
Y = 200
If X = 7 Or X = 20 Or X = 23 Or X = 38 Or X = 69 Or X = 188 Or X = 213 Or X = 239 Or X = 246 Then Y = 100
Print Y

ألا يمكن عمل مجموعة تحتوى هذه الأرقام
بحيث تكون صيغة هذه الجملة الشرطية [b]الطويييييييلة هكذا
[/b]

THEN Y=100    ضمن أرقام المجموعة     IF X

ولكم ألف شكر