خلاصه نویسی کد

[saeidmobashery]

درود بر دوستان گرامی
رفقا کد زیر را چگونه خلاصه‌تر بنویسم ؟

Part_1 = InStr(1, Line, ",")
Part_2 = InStr(Part_1 + 1, Line, ",")
Part_3 = InStr(Part_2 + 1, Line, ",")
Part_4 = InStr(Part_3 + 1, Line, ",")
Part_5 = InStr(Part_4 + 1, Line, ",")
Part_6 = InStr(Part_5 + 1, Line, ",")
Part_7 = InStr(Part_6 + 1, Line, ",")
Part_8 = InStr(Part_7 + 1, Line, ",")
Part_9 = InStr(Part_8 + 1, Line, ",")
Part_10 = InStr(Part_9 + 1, Line, ",")
Part_11 = InStr(Part_10 + 1, Line, ",")
Part_12 = InStr(Part_11 + 1, Line, ",")
Part_13 = InStr(Part_12 + 1, Line, ",")

[ROSTAM2]

درود بر دوستان گرامی
رفقا کد زیر را چگونه خلاصه‌تر بنویسم ؟

Part_1 = InStr(1, Line, ",")
Part_2 = InStr(Part_1 + 1, Line, ",")
Part_3 = InStr(Part_2 + 1, Line, ",")
Part_4 = InStr(Part_3 + 1, Line, ",")
Part_5 = InStr(Part_4 + 1, Line, ",")
Part_6 = InStr(Part_5 + 1, Line, ",")
Part_7 = InStr(Part_6 + 1, Line, ",")
Part_8 = InStr(Part_7 + 1, Line, ",")
Part_9 = InStr(Part_8 + 1, Line, ",")
Part_10 = InStr(Part_9 + 1, Line, ",")
Part_11 = InStr(Part_10 + 1, Line, ",")
Part_12 = InStr(Part_11 + 1, Line, ",")
Part_13 = InStr(Part_12 + 1, Line, ",")


Dim Spl() as String = Line.Split(",")
Dim Parts As Integer = Spl.Count

[saeidmobashery]

ممنونم برادر جان