Spanish Pasar Texto a App Facebook y Twitter

[gvinetweb]

Hola.

Alguien me podria ayudar.

Quiero pasar un texto para que sea publicado al Facebook y otro al Twitter.

No he podido lograr que abra directo el facebook y/o twitter sin que salga la ventana: share donde se muestran todas las app con las que se puede compartir.

Quiero que se abra la app oficial.

este es el codigo

Hello, I want to share a text to facebook and twitter applications.

By pressing the button, open the facebook and / or Twitter open the application with text post.

Facebook------------------------
Dim i As Intent
Dim pm As PackageManager
Dim mensaje, mensaje2, mensajef As String

mensaje= "Comiendo un subway del día de "& Label3.text
mensaje2= "https://graph.facebook.com/Subway/"
mensajef=mensaje &" "& mensaje2

i = pm.GetApplicationIntent("com.twitter.android")

If i.IsInitialized Then
i.Initialize(i.ACTION_SEND, "")
i.SetType("text/plain")
'i.PutExtra("text", mensaje)
i.PutExtra("android.intent.extra.TEXT", mensajef)
StartActivity(i)

Else

ToastMessageShow("Aplicación no esta instalada", False)

End If
---------------------------

But it does not, just open the blank facebook.
and if it is for twitter, facebook becomes open

Twitter-----------------------------

Dim i As Intent
Dim pm As PackageManager
Dim mensaje, mensaje2, mensajef As String

mensaje= "Comiendo un subway del día de "& Label3.text
mensaje2= "https://graph.facebook.com/Subway/"
mensajef=mensaje &" "& mensaje2

i = pm.GetApplicationIntent("com.facebook.katana")

If i.IsInitialized Then
i.Initialize(i.ACTION_SEND, "")
i.SetType("text/plain")
'i.PutExtra("text", mensaje)
i.PutExtra("android.intent.extra.TEXT", mensajef)
StartActivity(i)

Else

ToastMessageShow("Aplicación no esta instalada", False)

End If
----------------------------

Alguien me podria comentar cual es el error?

Gracoas