Дан текстовый файл, абзацы в нем выделенны с красной строки (5 пробелов) ... - VB

dim stroka$ as string
dim c as long
file$="D:\txt.txt"
Open File$ for input as #1
Open mid$(File$,1,len(File$)-1) & "1" for output as #2
while not eof(1)
line input #1, stroka$
if mid$(stroka$,1,5)="     " then 
   c=c+1
   if c>1 then Print #2, " " 
end if
print #2, stroka$
wend
close #1,#2
Kill File$
rename  mid$(File$,1,len(File$)-1) & "1" as File$    ' По поводу этой строчки не помню, посмотри 
' переименовать файл (Ren) или (Name)