Sub btnBackup_Click
Dim recCounter As Int = 0
Dim rowRec As String
'load the zikr file line by line into zikrList
Dim zikrList As List
'read the whole contents of the current live zikr file into list
zikrList.Initialize
zikrList = File.ReadList(File.DirInternal,"userZikr.txt")
Dim in As Intent
File.WriteList(Starter.Provider.SharedFolder, FileToSend, zikrList)
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)
End Sub