Dim cnt As Integer = regVersion.GetSubKeyNames().Length

        Dim regVersion As RegistryKey
 
        regVersion = Registry.CurrentUser.OpenSubKey("Identities")
 
        If Not regVersion Is Nothing Then
 
            Dim subkeys() As String = regVersion.GetSubKeyNames()
            cnt = subkeys.Length
            For Each rk As String In subkeys
                Debug.WriteLine(rk)
                regVersion = Registry.CurrentUser.OpenSubKey("Identities\" + rk _
                  + "\Software\Microsoft\Outlook Express\5.0")
                '....
            Next
 
        End If