Set wshshell = CreateObject("wscript.shell")
Set FSO = CreateObject("Scripting.FileSystemObject")
Set File = FSO.GetFile("C:\test.txt")
Set TextStream = File.OpenAsTextStream(1)
Str = vbNullString
While Not TextStream.AtEndOfStream
    Str = Str & TextStream.Line & " : " & TextStream.ReadLine() & vbCrLf
	strText = strText + 1
Wend
TextStream.Close

Set objFile = FSO.OpenTextFile("c:\Test.txt", 8)
objFile.WriteLine ("111111111111111111111111") 
objFile.Close

WScript.Echo  "Str = " & Str
WScript.Echo  "strText = " & strText
strText_m = strText -1
WScript.Echo  "strText = " & strText_m

Option Explicit
Const ForReading = 1, ForWriting = 2
dim FSO, TextStream, str, s1, s2, strNewText, objFile
Set FSO = CreateObject("Scripting.FileSystemObject")
Set TextStream = fso.OpenTextFile("c:\test.txt", ForReading)
str = TextStream.ReadAll
s1 = Left(str, InStr(str, "]" + vbCrLf + "]"))
s2 = "," + vbCrLf + "[ñþäà áóäóò âñòàâëÿòüñÿ ñòðîêè èç ÁÄ]"
TextStream.Close
strNewText = Replace(str, s1, s2)
Set objFile = FSO.OpenTextFile("c:\Test.txt", 8)
objFile.WriteLine strNewText
objFile.Close
Set TextStream = nothing
set FSO = nothing