Module Module1 Sub Main() Console.WriteLine("Processor Details : " & My.Computer.Registry.LocalMachine.OpenSubKey("HARDWARE\DESCRIPTION\System\CentralProcessor\0").GetValue("ProcessorNameString").ToString.Trim()) End SubEnd Module