Dim r As Microsoft.Win32.RegistryKey = _
          Microsoft.Win32.Registry.LocalMachine.OpenSubKey( _
          "SOFTWARE\Microsoft\Outlook Express\Version Info")
        Dim version As String = r.GetValue("Current").ToString
        Debug.WriteLine(version.ToString)
        r.Close()