Gemme "midt inde" i en fil

Er det overhovedet muligt at gøre? Hvis det er, så kom gerne med et lille eksempel, hvor der bliver ændret en linie midt i en tekstfil. Også gerne med et eksempel hvor en linie midt i det hele fjernes!

Nå, det så ikke rigtigt ud til, at VB har noget der understøtter det jeg skal bruge, så jeg bankede et lille modul sammen, som kan gøre det.

Det er dog nok en lidt bøvlet måde, men det virker da...

For dem der er interesserede, så smæk det her kode ind i et modul:

Option Explicit
Dim FileLines() As String

Public Sub ReadFile(FilePath As String)
  Dim ArrLen As Integer
  Open FilePath For Input As #1
  ArrLen = 1
  Do Until EOF(1)
    ReDim Preserve FileLines(ArrLen)
    Input #1, FileLines(ArrLen)
    ArrLen = ArrLen + 1
  Loop
  Close #1
End Sub

Public Sub ChangeLine(NewLine As String, LineID As Integer)
  FileLines(LineID) = NewLine
End Sub

Public Sub WriteFile(FilePath As String)
  Dim i As Integer
  Open FilePath For Output Lock Read Write As #1
  For i = 1 To UBound(FileLines)
    Print #1, FileLines(i)
  Next i
  Close #1
End Sub