Getting all sub keys from a registry value

[Stanuk]

Hi there,

Trying to do something I hope would be very simple (but maybe not!)

I am reading a registry key using the following code:

 Dim registry As Object


    Set registry = CreateObject("WScript.Shell")


    Registry_Read = registry.RegRead(Key_Path & Key_Name)
   
   
End Function



Private Sub cmdgetemails_Click()
   

MsgBox Registry_Read("HKEY_CURRENT_USER\software\microsoft\windows\currentversion\unreadmail", "")

End Sub

What I want to do now is read all the sub keys in that particular key.. but im finding it extremely hard, is there is a simple way of doing this?

Many thanks