Применить настройки из файла

'Файл настроек находится в папке с приложением
Dim fileName As String = Application.StartupPath & "\settings.txt"
If File.Exists(fileName) Then
    Dim arrString(1) As String
    Dim streamReader As New StreamReader(fileName)
    Dim line As String
    Dim l As Integer = 0
    Do
        line = streamReader.ReadLine()
        arrString(l) = line
        ReDim Preserve arrString(arrString.Length + 1)
        l +=1
    Loop Until line Is Nothing
    streamReader.Close()
    arrString(2) = "Измененная 3-я строка"
    Dim fs As New FileInfo(fileName)
    Dim streamWriter As StreamWriter = fs.CreateText()
    For i As Integer = 0 To arrString.GetUpperBound(0)
        streamWriter.WriteLine(arrString(i))
    Next i
    streamWriter.Flush()
    streamWriter.Close()
Else
    MessageBox.Show("Файл не существует")
End If

Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        FileOpen(1, "Config.dat", OpenMode.Random)
        FilePut(1, Height)
        FilePut(1, Width)
        FilePut(1, Top)
        FilePut(1, Left)
        FileClose(1)
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        FileOpen(1, "Config.dat", OpenMode.Random)
        Try
            FileGet(1, Height)
            FileGet(1, Width)
            FileGet(1, Top)
            FileGet(1, Left)
        Catch ex As Exception
        End Try
        FileClose(1)
    End Sub

Private Sub ОбычныйToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ОбычныйToolStripMenuItem.Click
        BackgroundImage = Nothing
        Me.Opacity = 100
    End Sub