VBS 如何向Txt文档中指定行插入内容

'参数1: txt文件
'参数2: 在第几行后插入数据
'参数3: 插入数据内容

Call AddLine("C:\test.txt",2,"2")

Function AddLine(strPath,IntLine,strInput)
    Dim Fso,MyFile
    Set Fso = CreateObject("Scripting.FileSystemObject")
    '以只读的方式打开文件
    Set ReadFile = Fso.OpenTextFile(strPath,1,true)
	'以只写的方式打开文件
	Set WriteFile = Fso.OpenTextFile("NewFile.txt",2,true)
    '如果当前的指针不在整个文档的末尾，读取文本的整行内容
    Do Until ReadFile.AtEndOfStream
		WriteFile.WriteLine ReadFile.ReadLine
        IntLine = IntLine - 1
        '判断光标是否已达到指定行，达到则退出函数        
        If IntLine = 0 Then
		   WriteFile.WriteLine strInput
        End If
    Loop
	ReadFile.Close 
	WriteFile.Close 
	Set Fso = Nothing 
End Function