本当に、今マジで困ってます。

さっきから何度もやっているのですが、どうしても文字数が３０でストップして
しまいます。

ここにソースを貼るのでもし分かる人がいたら申し訳ないのですが
初心者の僕でも分かるような説明をしていただけませんか？

re = Split(Module1.SendCSV, ",")
j = 0
'読み込んだファイルをコントロールに格納していく
For i = 1 To 5
imText1(i).Text = re(13 + j)
Combo13(i).Text = re(14 + j)
Combo12(i).Text = re(15 + j)
imText2(i).Text = re(16 + j)
Combo9(i).Text = re(17 + j)
Combo6(i).Text = re(18 + j)
imText4(i).Text = re(19 + j)
Combo11(i).Text = re(20 + j)
Combo10(i).Text = re(21 + j)
imText3(i).Text = re(22 + j)
Combo7(i).Text = re(23 + j)
Combo8(i).Text = re(24 + j)
imText5(i).Text = re(25 + j)
imText6(i).Text = re(26 + j)
imText7(i).Text = re(27 + j)
imText8(i).Text = re(28 + j)
imText9(i).Text = re(29 + j)
imText10(i).Text = re(30 + j)
imText11(i).Text = re(31 + j)
imText12(i).Text = re(32 + j)
imText13(i).Text = re(33 + j)
imText14(i).Text = re(34 + j)
imText15(i).Text = re(35 + j)
imText16(i).Text = re(36 + j)
imText17(i).Text = re(37 + j)
j = j + 25
Next
'まだまだ格納
Combo1.Text = re(138)
Combo2.Text = re(139)
Combo3.Text = re(140)
Combo4.Text = re(141)
Combo5.Text = re(142)
For i = 0 To 11
imText18(i).Text = re(143 + i)
Next