求各位帮帮忙啊！vb的问题！谢谢啦

Question

现在在做毕业设计，关于子图挖掘的系统，用vb编程。有数据，要求将数据内容读取到一个数组中，画出图形，然后进行挖掘。
数据如下：
Cell#014  223.9  146.4   001 :   16819 Cell#015  241.2  192.4   002 :   619  16820 Cell#016  241.2  149.3   008 :   6867  8786  9178  9238  9682  9724  10319  16820Cell#017  246.9  221.1   010 :   4362  5903  6167  8379  9675  13359  13755  15074  15196  16824 Cell#018  252.7  134.9   001 :   11311
Cell#019  258.4  235.4   000 :  Cell#020  258.4  209.6   001 :   12245  现在我想把“：”后面的数字提取到一个二维数组中，具体应该怎么操作呢？已经编了一点，但运行总不符合期望值，求助啊！谢谢各位大侠啦！感激不尽！
Open "e:\2.txt" For Input As #1
        Do While Not EOF(1)
          Line Input #1, oline
          x = InStr(oline, ":")
          Print Mid(oline, x + 2, 5)
          ReDim a(1 To 24, 1 To 24)
          For i = 1 To 24
              For j = 1 To 24
              a(i, j) = Val(Mid(oline, x + 2, 5))
             ' Print a(i, j);
              Next j
              'Print vbCrLf
              'Print x
              Print Mid(oline, x + 2, 5)
          Next i
        Loop
    Close #1