Dim sett As New List(Of String)(IO.File.ReadAllLines("settings.cfg"))
        sett(1) = "install_directory"
        IO.File.WriteAllLines("settings.cfg", sett.ToArray())

Dim lines As New List(Of String)(IO.File.ReadAllLines(goldf))
        lines(6) = "<default-amount value=""" + GoldTXT.Text + """/>"
        IO.File.WriteAllLines(goldf, lines.ToArray())
 
        Dim lines2 As New List(Of String)(IO.File.ReadAllLines(steinf))
        lines2(6) = "<default-amount value=""" + SteinTXT.Text + """/>"
        IO.File.WriteAllLines(steinf, lines2.ToArray())
 
        Dim lines3 As New List(Of String)(IO.File.ReadAllLines(holzf))
        lines3(5) = "<default-amount value=""" + HolzTXT.Text + """/>"
        IO.File.WriteAllLines(holzf, lines3.ToArray())