Option Explicit
Dim SysVarReg
Set SysVarReg = WScript.CreateObject("WScript.Shell")
SysVarReg.RegDelete "HKLM\Software\AppName\Valuename"