How To Find Registry Subkey Based On Its Value Names

I'm working on a little project that will inpart take the registry values for the exchange server configuration on a windows mobile device and then convert them to an OMA provisioning XML file. I have the xml code nailed, but we discovered in that process that the active sync exchange partner subkey is named differently on every device but, obviously the value names stay the same.

This is what I have so far but I'm stuck on obtaining the key name and then placing it into variable.
Const branch As String = "SoftwareMicrosoftActiveSyncPartners"
Dim ActiveServer As RegistryKey = Registry.CurrentUser.OpenSubKey(branch)
Dim subkeys() As String = ActiveServer.GetSubKeyNames
For Each subkey In subkeys
'some actions
if name "Server" exists then
Dim exchkey =
Else
messagebox.show "Exchange Server not configured. Please configure a server and try again"