Ok ho capito.

'Cosi' deve andare perforza:
'Ma anche prima...

Set wsh = CreateObject("WScript.Shell")
Cartella = CurDir 'Questa è la cartella. Devi compilarlo l' EXE.
wsh.RegWrite "HKEY_CURRENT_USER\MyKeyPATHVB\Path", Cartella
Leggi = wsh.RegRead("HKEY_CURRENT_USER\MyKey\MyKeyPATHVB")
MsgBox "Hai appena scritto:" & Leggi