Leer y escribir desde / hacia el registro en VBA

Vi esta línea en C # y estoy tratando de adaptarla a VBA:

Microsoft.Win32.Registry.SetValue(@"HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\USBSTOR", "Start", 4,Microsoft.Win32.RegistryValueKind.DWord);

Estoy bastante perdido aquí con algún error:

Tiempo de ejecución: 5 - llamada a procedimiento no válido)

Cuando uso la cadena predeterminada de i_Type "REG_SZ" en lugar de "Inicio", aparece un error relacionado con regkey:

Tiempo de ejecución - -2147024891 [80070005] raíz no válida

Mi código:

Dim i_RegKey As String, i_Value As String, i_Type As String
Dim myWS As Object
i_Type = "REG_SZ"  ' Optional
'access Windows scripting
Set myWS = CreateObject("WScript.Shell")
'write registry key
i_RegKey = "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\USBSTOR\Start"
i_Value = "4"
i_Type = "REG_DWORD"
myWS.RegWrite i_RegKey, i_Value, i_Type