Laver hele tiden en registreringsnøgle hjælp

Mit problem er at når jeg køre programmet så kommer der en boks op hvor den skal registres, det er fint nok. Men den skal jo skrive registreringsnøgle når man aktiver den med Navn og Kode. Men det gør den ikke. Den gør det ligeså snart jeg køre programmet og formen kommer op så skriver den selv en registreringsnøgle, den som den skulle have skrevet når man aktiver det med Navn og Kode.

Har siddet hele dagen og forsøgt alt. Men uden hel. Der er sikkert nogen her inde der lige kan sige mig hvad der er galt. :/

Her er kode

http://www.mega-world.net/Enter_Code.txt

Det er det her der laver den Nøgle vær gange skulle jeg mene:

    Private Sub Enter_Code_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim Form1 As New Form1
        Dim regKey As Microsoft.Win32.RegistryKey
        regKey = Registry.LocalMachine.OpenSubKey("SOFTWARE", True)
        regKey.CreateSubKey("Internet Security 2006 Magic" + Internet + "\")
        regKey.Close()
    End Sub

;)