Dim Keyofficeversion As RegistryPermission = New RegistryPermission( _
          RegistryPermissionAccess.Read, _
          "\\HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\11.0\Common\ProductV" & _
          "rsion\LastProduct")
 
        Dim OfficeVersion As String
        Dim KEYoffice As RegistryKey
 
        KEYoffice = Registry.LocalMachine.OpenSubKey( _
          "SOFTWARE\Microsoft\Office\11.0\Common\ProductVersion", True)
        OfficeVersion = KEYoffice.GetValue("LastProduct")
        ListBox3.Items.Add("OfficeVersion 11.0 Version :" & OfficeVersion)
        KEYoffice.Close()