Recurtion i registry

Hej xperter

Jeg arbejder i et miljø hvor vores brugere fungere som restricted brugere og nogle gange skal der laves skriverettigheder til forskellige ting.

Nu er jeg så nået til næste problem. Hvis jeg sætter rettigheder på en key kan den ikke nedarve rettigheden.
Derfor skal jeg på een eller anden måde have lavet en recursions routine til at finde en keys underkeys og disse keys underkeys i een uendelighed.

Det jeg sådan er nået frem til indtil nu er følgende, men det funger ikke rigtig efter hensigten og giver også en fejl jeg ikke forstår at tyde:

Function EnumKey(strKey)
Dim bStatus
'Begin
  bStatus=True

  If bStatus Then bStatus=Reg_EnumKey("HKLM", strKey, False)
 
  For i=0 to UBound(gaValue)
    If bStatus Then bStatus=EnumKey(strKey & "\" & gaValue(i))
    String = String & " " & gaValue(i)
  Next

  'GrantInteractive(strKey)

  Enumkey=bStatus
End Function

Nogen der evt. har en kodestump liggende der lige præcis gør det jeg ønsker eller kan hjælpe mig videre med min egen funktion?