我以前写了个东西用到下面代码：

Private Sub Command3_Click()
Dim fs, f0, f1, f
If Check1.Value <> 1 Then
   MsgBox "请确定数据选择!", 0, "错误提示!"
Else
    If Check1.Value = 1 Then
       Set f0 = CreateObject("Scripting.FileSystemObject")
       Set f1 = f0.OpenTextFile("c:\dt1000\marc.bat", ForWriting, True, TristateUseDefault)
       f1.Write (Text3.Text)
       f1.Close
       Set fs = CreateObject("Scripting.FileSystemObject")
       Set f = fs.OpenTextFile("C:\DT1000\marcpro.cfg", ForWriting, True, TristateUseDefault)
       Text4.Text = Text4.Text & "[Delete]" & Chr(13) & Chr(10) & "801$c" & Chr(13) & Chr(10) & "[Create]" & Chr(13) & Chr(10) & "801$c=" & Format(Now, "yyyymmdd") & Chr(13) & Chr(10) & "[Copy]" & Chr(13) & Chr(10) & "100,7=801$c,2,8"
       f.Write (Text4.Text)
       f.Close
       Shell "c:\dt1000\marc.bat", vbMinimizedNoFocus
    End If
End If
End Sub

可是现在要做个相同的东西，复制上面的代码使用结果现实错误，信息提示如下：
 实时错误“5”
无效的过程调用或参数

调试提示上面红字部分错误


哪位指点下什么原因？？？

没有人知道原因么？？？

还是没有人明白么？