Io uso VB6 ma dovrebbe funzionare lo stesso.

codice:
Dim wshshell
Set wshshell = CreateObject("WScript.shell")
wshshell.regwrite "HKCU\nomechiave", "valoredword", "REG_DWORD"
Ciao.