CodeItBetter Programming Another VB Programming Blog

'Text File Handling - How to Insert a line of text in a file
Private Sub insertLine(ByVal strFile As String, ByVal lineNumber As Long, _
    ByVal strLineOfText As String)
    Dim strBuff() As String: strBuff = Split(returnContents(strFile), vbCrLf)
    Dim i As Long
    Open strFile For Output As #1
    For i = 0 To UBound(strBuff)
        If i = lineNumber Then Print #1, strLineOfText
        Print #1, strBuff(i)
    Next
    Close #1
End Sub