Veran, necesito leer los valores de este lugar

hkcu\software\microsoft\windows\currentversion\run

beno, de este y de otros mas, la cosa que cuando quiero leer todos los valores que contiene tira este error

No se pudo abrir la clave de registro ..... para leerla

a que se debera? que hago mal vamos

Private Function registro()
    Dim regedit As Object
    Dim claves As String
 
    Set regedit = CreateObject("Wscript.Shell")
 
    claves = regedit.regread("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run")
 
    MsgBox claves
 
    Set regedit = Nothing
 
End Function
 

saludos

ok entonces uso apis, muchas gracias ^^