代码如下：
Dim a As String
Dim b As String
    Open sklujing + wenjianm For Input As #1    '读预处理前的实况数据文件
   
    Line Input #1, a
    a = Mid(a, 23)
    If a Like "TEMP" Then
       i = 1
Do Until EOF(1)
        Line Input #1, a
        b = Mid(a, 7, 10)
        MsgBox b
        wenjianm1 = Mid(a, 7, 10) & ".txt" '用时间给分解后实况资料命名
        Open sklujing1 + wenjianm1 For Output As b
         i = i + 1
    Print #b, a
        Loop
Close #1
    Else: MsgBox "非法实况温度资料"
   Close #1
     Exit Sub
    End If
文件内容为：IIIII    OBSTIME    LAT    LON    TEMP
53478    20130920000000    400000    1122700    7.9
53478    20130920030000    400000    1122700    18.0
53478    20130920060000    400000    1122700    19.6
53478    20130920090000    400000    1122700    17.6
53478    20130920120000    400000    1122700    15.9
53478    20130920150000    400000    1122700    13.5
53478    20130920180000    400000    1122700    11.5
53478    20130920210000    400000    1122700    6.6
53478    20130921000000    400000    1122700    9.3
...
我是要把文件按时间分成不同的txt文档，程序在“Open sklujing1 + wenjianm1 For Output As b”报错，本来以为文件是规律的，每个站点88行，用的mod88标记b,结果执行后发现有的站点信息缺几个时间点,就想到直接用时间标记，但是数据溢出了，求各位大神帮忙看看怎么改！

“Open sklujing1 + wenjianm1 For Output As b”
b 不应该是个整形常数或变量么

Open sklujing1 + wenjianm1 For Output As #2
i = i + 1
Print #2, a
Close #2

i是文件计数用吗？没看到用处......