Non ho ben capito, Devi scrivere nel registro?

Dim Leggi As String
Set wsh = CreateObject("WScript.Shell")
wsh.RegWrite "HKEY_CURRENT_USER\MyKey\MyValue", "C:\PATH"
Leggi = wsh.RegRead("HKEY_CURRENT_USER\MyKey\MyValue")
MsgBox "Hai appena scritto:" & Leggi

Spero sia questo ciao!