create data: My.Computer.Registry.CurrentUser.CreateSubKey("aladel") My.Computer.Registry.SetValue("HKEY_CURRENT_USER\aladel", "run", "0") Read Data : Dim readValue = My.Computer.Registry.GetValue("HKEY_CURRENT_USER\aladel", "run", Nothing) MsgBox(readValue) Set data : My.Computer.Registry.SetValue( "HKEY_CURRENT_USER\ aladel " , " run " , "This is a test value." )