VB script Раздел текста по разделителю

[hronos1975]

День добрый
Нужно разбить текстовый файл *(в Юникоде, т.к текст на немецком) на кучу мелких.
Текст в большом файле разделен метками на кусочки, их и надо в отдельные текстовые файлы вывести. Метки стираются в файлах при выводе.
Мне дали скрипт (спасибо тому человеку) на VB и он вроде работает, но по какой-то причине выводит только половину данных указаных в главном файле. Должно было выйти где то 48 отдельных файлов, а вышло только 21 Может кто нибудь найти и поправить ошибку? Заранее спасибо

Const COMDLG_OPEN = 1, COMDLG_SAVE = 2
Const ForReading = 1, ForWriting = 2, ForAppending = 8
dim wpath

DragAndDropIt()

Function ReadTF(file)
Dim fso, f, s, s1
Set fso = CreateObject("Scripting.FileSystemO bject")
Set f = fso.OpenTextFile(file, ForReading)

Do While not f.AtEndOfStream
s = f.Readline

''' here manipulation
s = ChangeS(s," ",1)
msgbox s
ReadTF = ReadTF & s & vbcrlf
Loop
set f = nothing
set fso = nothing
End Function


Function WriteF(str,file)
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemO bject")
Set f = fso.OpenTextFile(file, ForWriting, True)
f.Write str
f.close
set f = nothing
set fso = nothing
End Function

Function ReadAllTF(fn)
Const ForReading = 1, ForWriting = 2
Dim fso, f
if fn="" then
ReadAllTF=""
else
Set fso = CreateObject("Scripting.FileSystemO bject")
Set f = fso.OpenTextFile(fn, ForReading)
ReadAllTF = f.ReadAll
end if
End Function


function SearchFor(text,token)
SearchFor = Instr(text, token)
end function


sub MainLoop(s)
i=1:n=1:file = "\tt"
ss = inputbox("Define separator:","Separator (Unicode)","Boris was here")
if ss="" then exit sub
s2 = ss:s3=""
for j=1 to len(s2)
s3 = s3 + mid(s2,j,1)+chr(0)
next:ss=s3

do while n>0
n = SearchFor( s,ss)
if n<1 then exit sub
s1 = left(s,n-1) ' this write into file
WriteF s1,wpath+file+"_"+CStr(i)+".txt"
s = mid(s,n+len(ss))
i=i+1
loop
end sub


Sub DragAndDropIt()
Set args = WScript.Arguments
if args.count = 0 then msgbox "No way!":exit sub:end if
str=args(0)
n=instrrev(str,"\")-1
wpath=left(str,n)
s = ReadAllTF(str)
MainLoop s
msgbox "Done!",vbExclamation,"Text Separator"
set args = nothing
end sub