Fails to Update Profile.

I have created a set of textboxes with a submit button, wired to the Button1_Click event. Here is my code:
    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim txtNumofGames As New TextBox
        Dim txtNumofAI As New TextBox
        Dim txtNumofSI As New TextBox
        Dim txtNumofII As New TextBox
        Dim txtNumofCG As New TextBox
        Dim txtNumofAO As New TextBox
        Dim txtNumofSO As New TextBox
        Dim txtNumofIO As New TextBox
        Dim txtNumofMG As New TextBox
        Dim txtNumofTricks As New TextBox
        Profile.GamesConfig.NumofGames = txtNumofGames.Text
        Profile.GamesConfig.ActiveInside = txtNumofAI.Text
        Profile.GamesConfig.SemiActiveInside = txtNumofSI.Text
        Profile.GamesConfig.InactiveInside = txtNumofII.Text
        Profile.GamesConfig.ChairGame = txtNumofCG.Text
        Profile.GamesConfig.ActiveOutside = txtNumofAO.Text
        Profile.GamesConfig.SemiActiveOutside = txtNumofSO.Text
        Profile.GamesConfig.InactiveOutside = txtNumofIO.Text
        Profile.GamesConfig.MessyGame = txtNumofMG.Text
        Profile.GamesConfig.Trick = txtNumofTricks.Text
    End Sub
But its not applying the information to the Profile. Any ideas?
David.