public class Test public Shared Sub Main 'My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\name\subname\", "UserName", "new name") End SubEnd Class