Удаление абзаца в файле - VB

Формулировка задачи:

Дано целое число К и текстовый файл. Удалить из файла абзац с номером К (абзацы отделяются друг от друга одной или несколькими пустыми строками) . Пустые строки, предшествующие и следующие за удаленным абзацем, не удалять. Если абзац с данным номером отсутствует, то оставить файл без изменений.

Решение задачи: «Удаление абзаца в файле»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Sub I_AM_STUPID_GIRL()
Const NL2 = vbNewLine & vbNewLine
Open "d:\myfile.txt" For Input As 1
s = NL2 & Input$(LOF(1), #1) & NL2
Close 1
Do
  p = p + 1
  p = InStr(p, s, NL2)
  If Mid$(s, p + 2, 4) <> NL2 Then n = n + 1
  If n = 5 Then
    Open "d:\myfile2.txt" For Output As 1
      s = Left$(s, p + 2) & Mid$(s, InStr(p + 1, s, NL2))
      Print #1, Mid$(s, 5, Len(s) - 8);
    Close 1
    Exit Sub
  End If
Loop
End Sub