Android Question Share contact via share menu

Sub GetPathFromContentResultc(UriString As String) As String
    Log ("entra a getpath     "&UriString)
  If UriString.StartsWith("/") Then Return UriString 'If the user used a file manager to choose the image
  Dim Cursor1 As Cursor

  Dim Uri1 As Uri
  Dim Proj() As String = Array As String("_data")
  Dim cr As ContentResolver
  cr.Initialize("")
  If UriString.StartsWith("content://com.android.providers.media.documents") Then 'ficheros
  Dim i As Int = UriString.IndexOf("%3A")
  Dim id As String = UriString.SubString(i + 3)
  Uri1.Parse("content://media/external/images/media")
  Cursor1 = cr.Query(Uri1, Proj, "_id = ?", Array As String(id), "")
   

        Log("entra para ver contactos")
        Dim i As Int = UriString.IndexOf("%3A")
  Dim id As String = UriString.SubString(i + 3)
  Uri1.Parse("content://media/external/contacts/")
  Cursor1 = cr.Query(Uri1, Proj, "_id = ?", Array As String(id), "")
       
        Else
  Uri1.Parse(UriString)
   
  Cursor1 = cr.Query(Uri1, Proj, "", Null, "")
  End If
  Cursor1.Position = 0
  Dim res As String
  res = Cursor1.GetString("_data")
    Log("res    "&res)
  Cursor1.Close
  Return res
End Sub

ExtraStr:Bundle[{vcard=vcard, android.intent.extra.STREAM=content://com.android.contacts/contacts/as_multi_vcard/1897i75def7ce88368584%3A}]

  Dim Intent1 As Intent
    Intent1 = Activity.GetStartingIntent
    If Intent1.Action = "android.intent.action.SEND" Then
        Log("Invoked by Share Via - single image")
    Else If Intent1.Action = "android.intent.action.SEND_MULTIPLE" Then
        Log("Invoked by Share Via - multiple images")
    Else If Intent1.Action = "android.intent.action.MAIN" Then
        Log("Invoked by Click on App")
    Else
        Log("Invoked by unknown method")
    End If
    Log("Action  :"&Intent1.Action)
    Log("GetData :"&Intent1.GetData)

        Dim str As String
Intent1.ExtrasToString.Contains("com.android.contacts/contacts") Then
             str = Intent1.ExtrasToString
            contactos(str)

Sub contactos(rutas As String)
rutas=rutas.SubString2(rutas.LastIndexOf("/")+1,rutas.Length-2)
    Log("rutas2      "&rutas)
con.Initialize
End Sub

rutas2      1897i75def7ce88368584%3A

 Log(con.GetNameFromId(rutas))

Log(File.ReadString("ContentDir", "content://com.android.contacts/contacts/as_multi_vcard/1897i75def7ce88368584"))