Android Question Sharing Info between 3 apps

kvs.Initialize(xui.DefaultFolder, "testingKVS.dat")

Sub Globals
    Public IME As IME
    Public xui As XUI
    Public kvs As KeyValueStore
    Private txtName As BRB4XFloatTextField
    Private txtSurname As BRB4XFloatTextField
    Private lblFullName As Label
    Public Name As String
    Public Surname As String
End Sub

Sub Activity_Create(FirstTime As Boolean)
    Activity.LoadLayout("Mainpage")
    kvs.Initialize(xui.DefaultFolder, "testingKVS.dat")
End Sub

Sub CreateFileProviderUri (Dir As String, FileName As String) As Object
    Dim FileProvider As JavaObject
    Dim context As JavaObject
    context.InitializeContext
    FileProvider.InitializeStatic("android.support.v4.content.FileProvider")
    Dim f As JavaObject
    f.InitializeNewInstance("java.io.File", Array(Dir, FileName))
    Return FileProvider.RunMethod("getUriForFile", Array(context, Application.PackageName & ".provider", f))
End Sub

Public Sub Save_to_KVS
    IME.HideKeyboard
'    kvs.DeleteAll
    Name = txtName.Text
    Surname = txtSurname.Text
    kvs.Put("Name", Name)
    kvs.Put("Surname", Surname)
    Log("Original Name = " & Name)
    Log("Original Surname = " & Surname)
    lblFullName.Text = Name &" "& Surname
End Sub


Private Sub btnSave_Click
    Dim FilesList As List
    FilesList = File.ListFiles(Starter.shared)
    Log("FileList = "  & FilesList)
    Save_to_KVS
    'copy the file to the shared folder
'    File.Copy(File.DirAssets, "b4a.png", Starter.shared, "b4a.png")
    File.Copy(File.DirInternal, "testingKVS.dat", Starter.shared, "testingKVS.dat")
    Dim in As Intent
'    in.Initialize(in.ACTION_SEND, CreateFileProviderUri(Starter.shared, "b4a.png"))
    in.Initialize(in.ACTION_SEND, CreateFileProviderUri(Starter.shared, "testingKVS.dat"))
    in.Flags = 1
    StartActivity(in)
End Sub

Sub Globals
Public kvs As KeyValueStore
    Private lblName As Label
    Private lblSurname As Label
End Sub

Sub Activity_Create(FirstTime As Boolean)
    Activity.LoadLayout("Mainpage")
End Sub

Sub Activity_Resume
    If IsRelevantIntent(Activity.GetStartingIntent) Then
        Dim starting As Intent = Activity.GetStartingIntent
        If starting.GetData.StartsWith("content") Then
            Dim starting As Intent = Activity.GetStartingIntent
            Dim uri As String = starting.GetData
            Log("*** URI = " & uri)
            kvs.Initialize(uri, "testingKVS.dat")
            Log("kvsName = " &kvs.Get("Name"))
            Log("kvsSurname = " &kvs.Get("Surname"))
            lblName.Text = kvs.Get("Name")
            lblSurname.Text = kvs.Get("Surname")
        Else
            Dim in As JavaObject = Activity.GetStartingIntent
            Dim uri As String = in.RunMethod("getParcelableExtra", Array("android.intent.extra.STREAM"))
        End If
    End If
End Sub

Private Sub IsRelevantIntent(in As Intent) As Boolean
    If in.IsInitialized And in <> OldIntent And in.Action = in.ACTION_SEND Then
        OldIntent = in
        Return True
    End If
    Return False
End Sub

File.Copy(File.DirAssets, "b4a.png", Starter.shared, "b4a.png")
    Dim in As Intent
    in.Initialize(in.ACTION_SEND, CreateFileProviderUri(Starter.shared, "b4a.png"))
    in.Flags = 1
    StartActivity(in)

'    File.Copy(File.DirInternal, "testingKVS.dat", Starter.shared, "testingKVS.dat")
    Dim in As Intent
    in.Initialize(in.ACTION_SEND, CreateFileProviderUri(Starter.shared, "testingKVS.dat"))
    in.Flags = 1
    StartActivity(in)