Visual Basic.NET - Guardar y Abrir Archivos (de texbox a .txt y .txt a textbox)

Private Sub EscribirEnElFichero(ByRef NombreYRutaFicheroAEscribir As String, ByRef FaseAEscribir As String)

    Dim FicheroAEscribir = New System.IO.StreamWriter(NombreYRutaFicheroAEscribir, False) ' con FALSE, reemplaza fichero anterior, con TRUE añade.

    FicheroAEscribir.WriteLine(FaseAEscribir)

    FicheroAEscribir.Close()

    FicheroAEscribir.Dispose()

End Sub

Private Function LeerEnElFichero(ByRef NombreYRutaFicheroALeer As String) As String

    Dim FicheroALeer = New System.IO.StreamReader(NombreYRutaFicheroALeer, System.Text.Encoding.Default)

    Dim FraseLeida As String = FicheroALeer.Readline()

    FicheroALeer.close()

    FicheroALeer.Dispose()

    Return FraseLeida

End Function

EscribirEnElFichero(Nombre_Y_Ruta_Del_Fichero_Que_Gustas, LaTextBox.Text)

UnaTextBox.Text = LeerEnElFichero(Nombre_Y_Ruta_Del_Fichero_Que_Gusta)