Dim subjectstr As String = "my subject"
Dim msgstr As String = "my msg"
Dim u As Uri 'ContentResolver library
u.Parse("file://" & File.Combine(File.DirRootExternal, "file.xls"))
Dim int1 As Intent
int1.Initialize(int1.ACTION_SEND, "")
int1.PutExtra("android.intent.extra.SUBJECT",subjectstr)
int1.putExtra("android.intent.extra.TEXT",msgstr)
int1.PutExtra("android.intent.extra.STREAM",u)
int1.SetType("message/rfc822")
int1.WrapAsIntentChooser("Select") 'will show always ContentChooser
StartActivity(int1)