Pytanie Sumowanie textbox+odpowiednia linia z pliku .txt

Cześć wszystkim. 

Siedzę i myślę jak to rozwiązać może ktoś z Was wpadnie na pomysł.
Jak dodać odpowiednie wyniki z textboxa do odpowiednich linijek w istniejącym już pliku .txt
Wizualizując wygląda to tak

Mam np. textbox1 z wynikiem 6 i chciałbym tą 6 dodać do pierwszej linijki w pliku .txt


Mój kod wygląda następująco:

Public Class Form1    Private x As Long    'kalkulator i tworzenie zapisu cen i wag    Private Sub FlatButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FlatButton2.Click        Dim a, b, c, d, g, f As Object        Dim dzien As String = My.Computer.FileSystem.FileExists("D:\kalkulator\" + DateTimePicker1.Text + ".txt")        a = FlatTextBox1.Text        b = FlatTextBox2.Text        c = FlatTextBox3.Text        d = FlatTextBox4.Text        g = ILabel4.Text        f = ILabel6.Text        ILabel6.Text = Val(a *         ILabel8.Text = Val(c * d)        ILabel9.Text = CSng(ILabel6.Text) + CSng(ILabel8.Text)        If dzien = False Then            My.Computer.FileSystem.WriteAllText("D:\kalkulator\" + DateTimePicker1.Text + ".txt", FlatButton1.Text + "=" + FlatTextBox2.Text, False) ' Tworzy plik o nazwie (data dnia) jeśli go nie ma         Else           TUTAJ BRAKUJE kodu który by sumował i nadpisywał wyniki.        End If    End Sub    'wczytywanie pliku z cenami    Private Sub FlatButton6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FlatButton6.Click        Dim fd As OpenFileDialog = New OpenFileDialog()        Dim strFileName As String        fd.Title = "Wybierz plik txt"        fd.InitialDirectory = ""D:\kalkulator\"        fd.Filter = "All files (*.*)|*.*|All files (*.*)|*.*"        fd.FilterIndex = 2        fd.RestoreDirectory = True        If fd.ShowDialog() = DialogResult.OK Then            strFileName = fd.FileName        End If        Dim lines = IO.File.ReadAllLines(fd.FileName, System.Text.Encoding.UTF8) ' fd.FileName to wybrany plik TXT        'pobieranie poszczególnych wartośćci z wybranych wierszy        Dim pierwsza = lines(0).Split("="c)(1)        Dim druga = lines(1).Split("="c)(1)        FlatTextBox1.Text = pierwsza        FlatTextBox3.Text = druga    End SubEnd Class

 Dim fd As OpenFileDialog = New OpenFileDialog()            Dim strFileName As String            fd.Title = "Wybierz plik txt"            fd.InitialDirectory = "D:\kalkulator\"            fd.Filter = "All files (*.*)|*.*|All files (*.*)|*.*"            fd.FilterIndex = 2            fd.RestoreDirectory = True            If fd.ShowDialog() = DialogResult.OK Then                strFileName = fd.FileName            End If            Dim lines = IO.File.ReadAllLines(fd.FileName, System.Text.Encoding.UTF8) ' fd.FileName to wybrany plik TXT            Dim zapisane1, kg As Single            zapisane1 = lines(0).Split("="c)(1)            kg = CSng(FlatTextBox2.Text)            ILabel3.Text = CSng(zapisane1) + CSng(kg)            My.Computer.FileSystem.WriteAllText("D:\kalkulator\" + DateTimePicker1.Text + ".txt", FlatButton1.Text + "=" + CSng(zapisane1) + CSng(kg), False)

Raczej zrobić tak, by podmieniał tylko jedną wyznaczoną linijkę tekstu Ci się nie uda. Najlepiej po prostu nadpisać cały plik nowymi wartościami

Już to zrobiłem, tak jak chciałem.

Jeśli ktoś będzie chciał rozwiązanie to mogę je podać.

Mógł byś mi podać na PW?