Text opslaan en weer openen in vb.net

[mikemouse1]

Hallo,

Ik maak een programma en als ik het opsla is het de bedoeling dat de tekst die in de label en in de textboxen (en de forecolers) behouden blijven, maar alles staat door elkaar als ik het opnieuw open. Ik maak het in vb express 2008

Private Sub OpenFileDialog1_FileOk(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk
        Me.Text = OpenFileDialog1.FileName

        Dim intK As Integer
        Me.Text = OpenFileDialog1.FileName
        intk = FreeFile()
        FileOpen(intk, Me.Text, OpenMode.Input)
        Label11.Text = LineInput(intK)
        Label12.Text = LineInput(intK)
        Label13.Text = LineInput(intK)
        Label14.Text = LineInput(intK)
        Label15.Text = LineInput(intK)
        Label16.Text = LineInput(intK)
        Label17.Text = LineInput(intK)
        Label18.Text = LineInput(intK)
        Label19.Text = LineInput(intK)
        Label20.Text = LineInput(intK)
        Label21.Text = LineInput(intK)
        Label22.Text = LineInput(intK)
        TextBox5.Text = LineInput(intK)
        textbox6.Text = LineInput(intK)
        TextBox7.Text = LineInput(intK)
        TextBox8.Text = LineInput(intK)
        TextBox9.Text = LineInput(intK)
        TextBox10.Text = LineInput(intK)
        TextBox11.Text = LineInput(intK)
        TextBox12.Text = LineInput(intK)
        TextBox13.Text = LineInput(intK)
        TextBox14.Text = LineInput(intK)
        TextBox15.Text = LineInput(intK)
        TextBox16.Text = LineInput(intK)
        FileClose()
    End Sub

    Private Sub SaveFileDialog1_FileOk(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles SaveFileDialog1.FileOk
        Me.Text = SaveFileDialog1.FileName

        Dim intk As Integer
        Me.Text = SaveFileDialog1.FileName
        intk = FreeFile()
        FileOpen(intk, Me.Text, OpenMode.Output)
        Print(intk, Label11.Text & vbCr)
        Print(intk, Label12.Text & vbCr)
        Print(intk, Label13.Text & vbCr)
        Print(intk, Label14.Text & vbCr)
        Print(intk, Label15.Text & vbCr)
        Print(intk, Label16.Text & vbCr)
        Print(intk, Label17.Text & vbCr)
        Print(intk, Label18.Text & vbCr)
        Print(intk, Label19.Text & vbCr)
        Print(intk, Label20.Text & vbCr)
        Print(intk, Label21.Text & vbCr)
        Print(intk, Label22.Text & vbCr)
        Print(intk, TextBox5.Text & vbCr)
        Print(intk, textbox6.Text & vbCr)
        Print(intk, TextBox7.Text & vbCr)
        Print(intk, TextBox8.Text & vbCr)
        Print(intk, TextBox9.Text & vbCr)
        Print(intk, TextBox10.Text & vbCr)
        Print(intk, TextBox11.Text & vbCr)
        Print(intk, TextBox12.Text & vbCr)
        Print(intk, TextBox13.Text & vbCr)
        Print(intk, TextBox14.Text & vbCr)
        Print(intk, TextBox15.Text & vbCr)
        Print(intk, TextBox16.Text & vbCr)
        FileClose()
    End Sub

Wie helpt me ?

Alvast Bedankt