Private Sub AddLine(FileName As String, Line As String, LineAdd As String)
' FileName - название файла
' Line - строка, после которой нужно добавить новую
' LineAdd - строка, которую нужно добавить
Dim text() As String
Dim i As Integer
ReDim text(0)
' Открываем файл для чтения
Open FileName For Input As 1
' Заполним массив text строками из файла
Do While Not EOF(1)
i = i + 1
ReDim Preserve text(i)
Line Input #1, text(i)
Loop
Close #1
' Открываем файл для записи
Open FileName For Output As 1
For i = 1 To UBound(text)
' Перезаписываем строки
Print #1, text(i)
' Если строка соответствует строке, после которой нужно
' добавить другую, то добавляем строку
If text(i) = Line Then Print #1, LineAdd
Next
Close #1
End Sub