Android Question Opening/Saving Email Attachment using B4xpages

Private Sub btnShareFile_Click
     'fill MyArray with your files to zip
     Dim FileToSend As String = "example.zip"
     Arc.AsyncZipFiles(LocalDirFullPath, myArray, Provider.SharedFolder, FileToSend, "Zip")
     Wait for Zip_ZipDone(CompletedWithoutErrors As Boolean, NbOfFiles As Int)
    Dim in As Intent
    in.Initialize(in.ACTION_SEND, "")
    in.SetType("application/zip")  'changed from in.SetType("text/plain")
    in.PutExtra("android.intent.extra.STREAM", Provider.GetFileUri(FileToSend))
    in.Flags = 1 'FLAG_GRANT_READ_URI_PERMISSION
    StartActivity(in)
End Sub

Public Sub Load As ResumableSub
    Dim cc As ContentChooser
    cc.Initialize("cc")
    cc.Show("application/zip", "Choose zip file")  'changed from cc.Show("text/*", "Choose text file")
    Wait For CC_Result (Success As Boolean, Dir As String, FileName As String)
    Dim res As LoadResult = CreateLoadResult(Success, Dir, FileName)
    If res.Success Then ExtractInformationFromURI(res.FileName, res)
    Return res
End Sub