謝謝大大解答..
最後實際上在run的時候，會變成循序讀檔在第一次的input時，就把所有的資料讀了進來，也就是所有csv資料都塞進去同一個變數之中，之後剩餘的參數都是空的
因此只好硬著頭便慢慢一步一步把資料給分解出來
dim point(1 To 256),sp
dim num,num1
.
.
Line Input #1, sp
.
For num = 1 To 256 '事先知道csv資料只有256筆
Do Until Mid(sp, num1, 1) = Chr(10) 'csv資料是以chr(10)隔開，若讀出資料不等於chr(10)則持續迴圈
point(num) = point(num) + Mid(sp, num1, 1)
'將SP內的資料由最左邊開始慢慢逐一取出並存進point(num)內
num1 = num1 + 1
Loop
num1 = num1 + 1
Next
最後run下來就可以把csv的資料慢慢分解回num(1 to 256)陣列之內