Dim eMailMessage As Email
eMailMessage.To.Add(EmailAdd)
eMailMessage.Subject = EditText2.Text & " Flight Summary"
eMailMessage.Body = "This is a text " & Chr(13) & " with a line break."
StartActivity(eMailMessage.GetIntent) ' Send the eMail
Msgbox("Email Sent", "Email")