Sub DeleteSingleValueFromTmpLoadHive(KeyPath,KeyName)
' Author   Jakob H. Heidelberg
' Version  1.0
  On Error Resume Next
  Const HKEY_USERS = &H80000003
  Dim strKeyPath  strKeyPath = Trim(KeyPath)
  Dim objRegistry  Set objRegistry = GetObject(Winmgmts.RootDefaultStdRegProv)
  objRegistry.DeleteValue HKEY_USERS, KeyPath, KeyName
  Set objRegistry = Nothing
End Sub