Dim FileToSend As String = "Message.txt"
File.WriteString(Starter.Provider.SharedFolder, FileToSend, ("Projectname:"&EditText_projectname.text&CRLF&"Capacity:"&TextBox_capa.text))
Dim in As Intent
in.Initialize(in.ACTION_SEND, "")
in.SetType("text/plain")
in.PutExtra("android.intent.extra.STREAM", Starter.Provider.GetFileUri(FileToSend))
in.Flags = 1 'FLAG_GRANT_READ_URI_PERMISSION
StartActivity(in)