Добавить в файл строку - VB

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

имеется текстовый файл, добавить в него строку(--------------) разместив её: а) после 5й строки б) после последней из строк, в которых нет пробела. если таких строк нет, то новая строка должна быть добавлена после всех строк имеющегося файла В обоих случаях записать результат в другой файл

Решение задачи: «Добавить в файл строку»

textual
                            Листинг программы 
                        

                            Private Sub Form_Load()
Dim i As Integer, j As Integer
Dim M() As String, File As String, CF As String, p As Integer '
   File = App.Path & "\" & "1.txt"
   Open File For Binary As #1
      CF = Input(FileLen(File), 1)
   Close #1
   M = Split(CF, vbNewLine) ' разбили на массив
   For i = 0 To UBound(M)
        If InStr(1, M(i), " ") <> 0 Then p = i ' находим последнюю без пробелов
   Next
   Open App.Path & "\" & "2.txt" For Output As #1
   For i = 0 To UBound(M)
           Print #1, M(i)
           If i = 4 Then Print #1, "-------------------------------"
                If i > 0 And i = p Then
                    Print #1, "-------------------------------"
                End If
   Next i
   If p = 0 Then Print #1, "-------------------------------"
Close #1
End Sub
                        