Do While Not EOF(1)
Line Input #1, b
a = Split(b, ",")

c = a(0) ‘下标越界

Ps：
dim a() as string ,b as string, c as string

split 分割成下标从0开始的一维数组，怎么会越界

先写入日志文件，再读出，文件写入方式 原来是APPEND ，改为 output ，神奇解决数组下标越界问题