Private Sub Form_Load()
    Call BorrarLinea("c:\archivo.txt", 2)
End Sub
 
Public Function BorrarLinea(ByVal vNombreArchivo As String, ByVal vNumeroLinea As Long) As Boolean
    Dim oFSO As Scripting.FileSystemObject
    Dim oFSTR As Scripting.TextStream
    Dim lCtr As Long
    Dim vTemporal As String, vLinea As String
    Dim vLineaEncontrada As Boolean
 
    Set oFSO = New FileSystemObject
 
    On Error GoTo ErrorHandler
    If oFSO.FileExists(vNombreArchivo) Then
        Set oFSTR = oFSO.OpenTextFile(vNombreArchivo)
        lCtr = 1
        Do While Not oFSTR.AtEndOfStream
            vLinea = oFSTR.ReadLine
            If lCtr <> vNumeroLinea Then
                vTemporal = vTemporal & vLinea & vbCrLf
            Else
                vLineaEncontrada = True
 
            End If
            lCtr = lCtr + 1
        Loop
 
        oFSTR.Close
        Set oFSTR = oFSO.CreateTextFile(vNombreArchivo, True)
        oFSTR.Write (vTemporal)
        BorrarLinea = vLineaEncontrada
    End If
ErrorHandler:
    On Error Resume Next
    oFSTR.Close
    Set oFSTR = Nothing
    Set oFSO = Nothing
End Function