Dim WshShell, bKey
Set WshShell = CreateObject("Wscript.Shell")
bKey = WshShell.RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Cache")
MsgBox bKey
Set WshShell = CreateObject("Wscript.Shell")
bKey = WshShell.RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Cache")
MsgBox bKey