ami tambn me selecciona RegLocalMachine

Ya lo arregle es pq necesitas declarar las apis: mira este codigo:
Private Sub Form_Load()
On Error Resume Next
Set WS = CreateObject("WScript.Shell") ' asignamos a una variable el objeto
WS.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\VitalWerks\DUC\", "Default", "", "RegString"
End Sub
y asi funciona correctamente =)