Visual Basic.NET - Guardar y Abrir vb.net

Imports System.IO

Public Class Form1

    Dim NombreYRutaDelFichero As String = "D:\Tmp\MisDatos.csv"

  Private Sub BLeer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BLeer.Click

        If Not System.IO.File.Exists(NombreYRutaDelFichero ) Then

            MessageBox.Show(NombreYRutaDelFichero  & " no encontrado")

            Exit Sub

        End If

        Dim FicheroALeer As System.IO.StreamReader = New System.IO.StreamReader(NombreYRutaDelFichero )

        Dim LineaLeida As String

        Dim Separador As Char() = {","}

        Dim DatosTMP() As String

' Leer los datos

            LineaLeida = FicheroALeer.ReadLine

            DatosTMP = LineaLeida.Split(Separador)

            TextBox1.Text = DatosTMP(0)

            TextBox2.Text = DatosTMP(1)

        FicheroALeer.Close()

        FicheroALeer.Dispose()

    End Sub

    Private Sub BEscribir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BEscribir.Click

        Dim FicheroAEscribir As System.IO.StreamWriter

        Dim LineaEscrita As String

        Dim Separador As Char() = {","}

        FicheroAEscribir = New System.IO.StreamWriter(NombreYRutaDelFichero, False, System.Text.Encoding.Default)

' Escribir los datos

            LineaEscrita = TextBox1.Text & Separador & TextBox2.Text

            FicheroAEscribir.WriteLine(LineaEscrita)

         FicheroAEscribir.Close()

         FicheroAEscribir.Dispose()

    End Sub

' ... ... ...