Dim inten As Intent
inten.Initialize(inten.ACTION_SEND,"")
inten.PutExtra("android.intent.extra.TEXT", txtAsk.Text)
inten.SetComponent("com.facebook.katana/com.facebook.katana.stream.publish")
Try
StartActivity(inten)
Catch
Msgbox("It seems you don't have Facebook installed", "Error")
End Try