con questo codice scrivi nel regedit ,ma nella key current user

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

io ho bisogno di scrivere in Local Machine


devo forse utilizzare qualche Api di Windows?
qualcuno gentili puo' aiutarmi magari con qualche riga di Codice.
sono alle prime armi
THX