Const
HKEY_CURRENT_USER = &H80000001
strComputer = "."
Set objRegistry = GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv")
strKeyPath = "Software\Microsoft\Internet Explorer\TypedURLs"
objRegistry.EnumValues
HKEY_CURRENT_USER, strKeyPath, arrValueNames, arrValueTypes
For Each strValue in arrValueNames
objRegistry.DeleteValue
HKEY_CURRENT_USER,strKeyPath,strValue
Next