DeleteLine "c:\1.txt", 2
InsertLine "c:\1.txt", 2, "*"

Sub DeleteLine(filespec, rownum)
        Dim fso, f, temp, i
        Set fso = CreateObject("Scripting.FileSystemObject")
        Set f = fso.OpenTextFile(filespec, 1)
        temp = ""
        i = 0
        While Not f.AtEndOfStream
                i = i + 1
                If Not i = rownum Then
                        temp = temp & f.ReadLine & vbCrLf
                Else
                        f.SkipLine
                End If
        WEnd
        f.Close
        Set f = fso.OpenTextFile(filespec, 2)
        f.Write temp
        f.Close
End Sub


Sub InsertLine(filespec, rownum, oneline)
        Dim fso, f, temp, i
        Set fso = CreateObject("Scripting.FileSystemObject")
        Set f = fso.OpenTextFile(filespec, 1)
        temp = ""
        i = 0
        While Not f.AtEndOfStream
                i = i + 1
                If i = rownum Then temp = temp & oneline & vbCrLf
                temp = temp & f.ReadLine & vbCrLf
        WEnd
        f.Close
        Set f = fso.OpenTextFile(filespec, 2)
        f.Write temp
        f.Close
End Sub