vb6 如何将文本框内容按第二列（编码列）将第一列分割成几个数组如下面的例子

加两个text，一个按钮，把他们的mulline设为true，scorllbar设为2.把那些写入text1，text2供输出结果
代码：

Private Sub Command1_Click()
On Error Resume Next
z = 1
For i = 1 To 9
a = InStrRev(Text1, i & vbCrLf)
b = Mid(Text1, z, a - z + 1)
Select Case i
Case Is = 1
c = Split(b, 1 & vbCrLf)
Text2 = Text2 & i & Space(1) & UBound(c) + 1 & vbCrLf
Case Is = 2
d = Split(b, 2 & vbCrLf)
Text2 = Text2 & i & Space(1) & UBound(d) + 1 & vbCrLf
Case Is = 3
e = Split(b, 3 & vbCrLf)
Text2 = Text2 & i & Space(1) & UBound(e) + 1 & vbCrLf
Case Is = 4
f = Split(b, 4 & vbCrLf)
Text2 = Text2 & i & Space(1) & UBound(f) + 1 & vbCrLf
Case Is = 5
g = Split(b, 5 & vbCrLf)
Text2 = Text2 & i & Space(1) & UBound(g) + 1 & vbCrLf
Case Is = 6
h = Split(b, 6 & vbCrLf)
Text2 = Text2 & i & Space(1) & UBound(h) + 1 & vbCrLf
Case Is = 7
x = Split(b, 7 & vbCrLf)
Text2 = Text2 & i & Space(1) & UBound(x) + 1 & vbCrLf
Case Is = 8
j = Split(b, 8 & vbCrLf)
Text2 = Text2 & i & Space(1) & UBound(j) + 1 & vbCrLf
Case Is = 9
k = Split(b, 9 & vbCrLf)
Text2 = Text2 & i & Space(1) & UBound(k) + 1 & vbCrLf
End Select
z = a
Next
End Sub

你可以用
for i=0 to ubound（c）
c（i）=...
next
来读取每个数