Private Lines As String()
 
   Public Sub ReadFile(ByVal path As String)
      Lines = System.IO.File.ReadAllLines(path)
   End Sub
 
   Public Sub ReplaceLine(ByVal line As Integer, ByVal text As String)
      If line < 0 Or line > Lines.Length - 1 Then Throw New _
        IndexOutOfRangeException
 
      Lines(i) = text
   End Sub
 
   Public Sub SaveFile(ByVal path As String)
      System.IO.File.WriteAllLines(path, Lines)
   End Sub