Registry Get Sukey Informations

'This is my code
' i want to all subkeyinformation for keys from registry
' I need help


Imports System
Imports Microsoft.Win32
Module Module1

Sub Main()

Dim key As Microsoft.Win32.RegistryKey
Dim Keyname As String
Dim SubkeyCount As Integer
Dim ValueCount As Integer
Dim name As String

Dim Subkeys(10)
Dim Valuename(5)
Dim SubValues(10)
Dim ValuesParameter(10)

Keyname = "System\CurrentControlset\Enum\USB\ROOT_HUB"
'Keyname enthält System\CurrentControlSet\Enum\USB\Root_HUB
key = Microsoft.Win32.Registry.LocalMachine.OpenSubKey(Keyname)
'Key enthält
'Name
'SubKeyCount
'ValueCount
name = key.Name
SubkeyCount = key.SubKeyCount 'Anzahl der Unterschlüssel unterhalb von USB
ValueCount = key.ValueCount


key.GetSubKeyNames.CopyTo(Subkeys, 0) 'in SubKeys stehen jetzt die Unterschlüssel


key = key.OpenSubKey(Subkeys(0), False)

name = key.Name
SubkeyCount = key.SubKeyCount
ValueCount = key.ValueCount

key.GetSubKeyNames.CopyTo(Valuename, 0)
key = key.OpenSubKey(Valuename(0), False)
name = key.Name

End Sub

end module