Sub Save_Click
Dim record As String
record = "Lunghezza: " & inputlung.Text & " mt" & CRLF & "Altezza: " & inputLarg.Text & " mt"
File.WriteString(File.DirInternal, "Parete.txt", record)
Dim u As Uri
u.Parse(File.Combine(File.DirInternal, "Parete.txt"))
Dim i As Intent
i.Initialize(i.ACTION_SEND, "")
i.SetType("txt/plain")
i.PutExtra("android.intent.extra.STREAM",u)
StartActivity(i)
End Sub