Eu vi essa linha em C # e estou tentando adaptá-la ao VBA:

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

Estou bastante perdido aqui com algum erro:

Tempo de execução: 5 - chamada de procedimento inválida)

Quando eu uso a sequência padrão i_Type "REG_SZ" em vez de "Iniciar", recebo um erro relacionado à regkey:

Tempo de execução - -2147024891 [80070005] raiz inválida

Meu 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