Petit probleme dans petit programme

Voila g un petit probleme, je suis debutant en visual studio 2005 et j'ai un programme a faire, tout simple mais qui me pose deja des probleme:
C'est une page avec trois bouton 1 valider 2 annuler 3 quitter, et une textbox.
Le programme doit fair cela:
Lorsqu'on tape du texte dans la textbox et que l'on clic sur valider cela doit afficher que cela a bien etait enregistrer. Mais cela doit enregistrer un fichier data avec le contenu du champ, un fichier log ou est ecris automatiquement tout ce qui se passe dans mon programme, ouverte a JJ-MM-YYYY HH-mm-ss ,enregistrement fermeture, modification.
Lorsqu'on clic sur le bouton annuler on annule les modification faite dans la textbox .
Lorsqu'on clic sur le bouton quitter cela ferme sauf si aucune modification n'a etait aportée dans ce cas une msgbox s'afiche demandant comfirmation ou pas de la fermeture. Voila tout et la.
Si quelqu'un peut m'aider cela serait simpa. merci.


Voila le bout de programme que j'ai fait pour l'instant

Imports System.IO 


--------------------------------------------------------------------------------


Public Class Form1

Private Sub Button_quitter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_quitter.Click

Dim Retour As Integer

'Si le fichiers .data n'a pas etait modifier et/ou valider alor:

Retour = MsgBox("Etes-vous sur de vouloir quitter? Les informations modifiées ne seront pas sauvergarder.", MsgBoxStyle.YesNo, "Validation")

If Retour = False Then

Return

Else

Me.Close()

End If

End Sub 


--------------------------------------------------------------------------------


Private Sub Button_valider_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_valider.Click

Dim Path As String

Path = "C:\bastien\bastien\Gestion fichier bernard\Gestion" & ".data"

If File.Exists(Path) = False Then

File.WriteAllText(Path, Format("dd-MM-yyyy HH-mm-ss") & Chr(13) & Chr(10) & Chr(13) & Chr(10) & TextBox_champ.Text)

Else

My.Computer.FileSystem.WriteAllText(Path, Format("dd-MM-yyyy HH-mm-ss") & Chr(13) & Chr(10) & TextBox_champ.Text, True)

End If

MsgBox("Les modifications apportées ont était sauvegardées", MsgBoxStyle.Exclamation, "Sauvegarde")

Me.Close()

End Sub 


--------------------------------------------------------------------------------


Private Sub Button_annuler_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_annuler.Click

Dim Retour As Integer

Retour = MsgBox("Le champ texte n'a pas était modifié. Etes-vous sur de votre choix?", MsgBoxStyle.YesNo, "Confirmation")

If Retour = True Then

'Ouvrir Fichier .data d'origine dans textbox

End If

End Sub 


--------------------------------------------------------------------------------


Private Sub TextBox_champ_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox_champ.TextChanged

'Faire ouvrir automatiquement le fichier .data s'il existe deja.

'TextBox_champ.filename = "C:\bastien\bastien\Gestion fichier bernard\Gestion"

Dim File As String

File = "C:\bastien\bastien\Gestion fichier bernard\Gestion"

'Open(File)

'For Input As 1

End Sub

End Class
--------------------------------------------------------------------------------