Dim abrir As RegistryKey = Registry.LocalMachine.OpenSubKey("Software\Surfiction", True)abrir.CreateSubKey("")