'Prova cosi... 'Avevo messo per errore un MyKEy in +
Set wsh = CreateObject("WScript.Shell")
Cartella = CurDir 'Questa è la cartella. Devi compilarlo l' EXE.
wsh.RegWrite "HKEY_LOCAL_MACHINE\MyKeyPATHVB\Path", Cartella
Leggi = wsh.RegRead("HKEY_LOCAL_MACHINE\MyKeyPATHVB\Path")
MsgBox "Hai appena scritto:" & Leggi