This reads the key in a XP/2002 version of Excel

Dim oWSH As Object
Dim sResult

Set oWSH = CreateObject("WScript.Shell")

On Error Resume Next
sResult =
oWSH.RegRead("HKCU\Software\Microsoft\Office\10.0\ Excel\Security\Level")
On Error GoTo 0
If Err.Number < 0 Or sResult = "" Then
MsgBox "Read key error"
Else
MsgBox sResult
End If
Err.Clear



--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

"avi" wrote in message
ps.com...
Thanks a lot!

I understand that i have to use the API RegOpenKeyEx to retrieve the
value. Could you help me further with the proper parameters to pass to
the function?

Thanks again
Avi