Dim TheUrl as string
TheUrl = "http://www.ibm.com"
Dim i As Intent
i.Initialize(i.ACTION_VIEW, "http://m.facebook.com/sharer.php?u=" & TheURL)
i.SetType("text/plain")
i.PutExtra("android.intent.extra.TEXT", TheUrl)
i.WrapAsIntentChooser("Open browser")
StartActivity(i)