Do While Not EOF(1)
        Input #FileNum, Aline
        tmpdata = Split(Aline, ",")
        ReDim Preserve outdata(i + 1)
        outdata(i) = tmpdata(0)
        i = i + 1
    Loop如果遇到这样的数据如何赋值?a,b,,d