فراخوانی تعدادی عدد در Select Case

[پرستو پارسایی]

با سلام
من میخواهم تعدادی عدد رو در Select Case فراخوانی کنم ولی راه درستش رو نمیدونم ممنون میشم دوستان در صورت اطلاع راهنمایی کنید. نمونه کد مد نظرم رو هم به این شکله

Dim T10 As String

Select Case T10

Case 10302, 40602, 90902, 161202, 10506, 41006, 91506, 162006, 10712, 41412, 92112, 162812,                 10920, 41820, 92720, 163620, 11130, 42230, 93330, 164430, 11342, 42642, 93942, 165242,

                 11556, 43056, 94556, 166056, 11772, 43472, 95172, 166872, 11990, 43890, 95790, 167690

End Select

این اعداد رو میخوام ییرم تو یه Sub و جاهای مختلف فراخوانی کنم . یا به عبارتی بعد از عبارت Case از sub استفاده کنم.

سپاس