Запустить ютуб или страничку в стороннем браузере

Запустить в ютуб-апликухе

Dim Intent1 As Intent
Dim videoid As String
videoid = "klMN44nn44n"
Intent1.Initialize(Intent1.ACTION_VIEW, "vnd.youtube:"&videoid)
Intent1.PutExtra("VIDEO_ID",videoid)
StartActivity(Intent1)

Запустить в браузере

Dim p As PhoneIntents
StartActivity(p.OpenBrowser("https://www.example.com")