请问高手:如何逐一读取Text 多个值?

Dim i As Integer
Dim a() As Integer
Text1 = "1,2,3,4,5,6"
ReDim a(Len(Text1))
For i = 1 To Len(Text1) / 2
a(i) = CInt(Mid(Text1, 2 * i - 1, 1))
Next

---

Dim i As Integer
Dim a() As Integer
Text1 = "1,2,3,4,5,6"
ReDim a(Len(Text1))
For i = 1 To Len(Text1) / 2
a(i) = CInt(Mid(Text1, 2 * i - 1, 1))
Next