Вы также можете использовать
Dim marketplaceSearchTask As MarketplaceDetailTask = New MarketplaceDetailTask()
marketplaceSearchTask.ContentIdentifier = "XXXXXXXX-XXXX-XXXX-XXXX-XXXXXXXXXXXX"
marketplaceSearchTask.Show()
на самом деле это не то, что вы (и я) ищете, но это намного точнее, чем предыдущий ответ.
замените X-es своим идентификатором ссылки на приложение Marketplace.