HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Approved Extensions

Dim user As String = Environment.UserDomainName & "\" & Environment.UserName
 
        Dim rs As New RegistrySecurity()
 
        rs.AddAccessRule(New RegistryAccessRule(user, _
                        RegistryRights.WriteKey Or RegistryRights.SetValue, _
                        InheritanceFlags.None, _
                        PropagationFlags.None, _
                        AccessControlType.Allow))
 
        ' Create the example key with registry security.
        Dim rk As RegistryKey
        rk = Registry.CurrentUser.CreateSubKey("Software\Microsoft\Internet Explorer\Approved Extensions", RegistryKeyPermissionCheck.ReadWriteSubTree, rs)
 
        If rk IsNot Nothing Then rk.Close()

    ''' <summary>
    ''' Modify the User permissions of a registry key.
    ''' </summary>
    Public Shared Sub Set_UserAccess_Key(ByVal RegKey As String, ByVal RegUserAccess As RegistryRights, ByVal AccessType As AccessControlType, Optional ByVal UserName As String = Nothing)
 
 
        Dim user As String = UserName
        Dim RootKey As RegistryKey = Get_Root_Key(RegKey)
        Dim KeyPath As String = Get_Key_Path(RegKey)
 
        If UserName Is Nothing Then user = Environment.UserDomainName & "\" & Environment.UserName
 
        Dim RS As New RegistrySecurity()
        Dim RK As RegistryKey = RootKey.OpenSubKey(KeyPath, RegistryKeyPermissionCheck.ReadWriteSubTree, RegistryRights.ChangePermissions Or RegistryRights.ReadKey)
 
        RS.AddAccessRule(New RegistryAccessRule(user, RegUserAccess, InheritanceFlags.None, PropagationFlags.None, AccessType))
        RK.SetAccessControl(RS)
        RK = RootKey.OpenSubKey(KeyPath, RegistryKeyPermissionCheck.ReadWriteSubTree, RegUserAccess)
        RK.SetAccessControl(RS)
 
 
    End Sub

Dim RK As RegistryKey = RootKey.OpenSubKey(KeyPath, RegistryKeyPermissionCheck.ReadWriteSubTree, RegistryRights.ChangePermissions Or RegistryRights.ReadKey)

Dim user As String = Environment.UserDomainName & "\" & Environment.UserName
SETACL_Info.Arguments = String.Format("-on ""{0}"" -ot reg -ace ""n:{1};p:{2}"" -rec ""{3}"" -actn ace -silent -ignoreerr -log ""{4}""", RegKey, user, Permission, Recursion, SETACL_Logfile)