Lire et ecrire dans VB

Imports System.IO
Public Class Form1
    Private Sub Form1_FormClosing(sender As Object, e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        Dim path As String = My.Application.Info.DirectoryPath & "\MyTest.txt" 'fichier texte créer dans le dossier Debug de l'application avec l'exe
        Dim file As System.IO.StreamWriter
        file = My.Computer.FileSystem.OpenTextFileWriter(path, True)
        file.WriteLine("Here is the first string.") 'remplacer par un TextBox
        file.Close()
    End Sub
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Dim path As String = My.Application.Info.DirectoryPath & "\MyTest.txt"
        If File.Exists(path) Then
            Dim fileReader As String
            fileReader = My.Computer.FileSystem.ReadAllText(path)
            MsgBox(fileReader) 'remplacer par un label
        End If
    End Sub
End Class

#Region "Résultats"
    Private Sub btnsave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsave.Click
        Dim time As String 'date et heure
        Dim Chaine As String = ""
            time = CStr(Now) 'on inscrit la date et l'heure
        Chaine = time & Environment.NewLine & "Résultats en " & ComboBox1.Text & " secondes" & Environment.NewLine & Label5.Text & ": " & Label1.Text & Environment.NewLine & "Ordinateur: " & Label3.Text & Environment.NewLine
        Dim file As System.IO.StreamWriter
        file = My.Computer.FileSystem.OpenTextFileWriter(path, True)
        file.WriteLine(Chaine)
        File.Close()
    End Sub
    Private Sub btnresult_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnresult.Click
        If File.Exists(path) Then
            Process.Start(path)
        End If
    End Sub
#End Region