菜鸟问题 帮帮忙 谢谢了

Private Sub Command1_Click()
Dim a As String, b As String, q1 As String, q2 As String, q3 As String, q4 As String, r1 As String, r2 As String, r3 As String, r4 As String, j1 As String, j2 As String, j3 As String, j4 As String
Open "1.txt" For Input As #1
Line Input #1, string1
Line Input #1, string2
Line Input #1, string3
Line Input #1, string4
Line Input #1, string5
Line Input #1, string6
Line Input #1, string7
Line Input #1, string8
Line Input #1, string9
Line Input #1, string10
Line Input #1, string11
Line Input #1, string12
Close #1
Select Case (Val(Text13.Text))
Case Is = 1
a = string1
Case Is = 2
a = string2
Case Is = 3
a = string3
Case Is = 4
a = string4
Case Is = 5
a = string5
Case Is = 6
a = string6
Case Is = 7
a = string7
Case Is = 8
a = string8
Case Is = 9
a = string9
Case Is = 10
a = string10
Case Is = 11
a = string11
Case Is = 12
a = string12
End Select
q1 = Split(a, ",")(0)
q2 = Split(a, ",")(1)
q3 = Split(a, ",")(2)
q4 = Split(a, ",")(3)
q5 = Split(a, ",")(4)
q6 = Split(a, ",")(5)
q7 = Split(a, ",")(6)
q8 = Split(a, ",")(7)
q9 = Split(a, ",")(8)
q10 = Split(a, ",")(9)
q11 = Split(a, ",")(10)
q12 = Split(a, ",")(11)
很罗嗦 而且split函数那边还 越界了 哪出问题了 ？大哥们 帮忙下