Spanish ¿Es posible esperar a un Intent?

'__________Envia los .XLS
Sub Compartir_Archivos(Tipo As String)
    Dim intent1 As Intent
    intent1.Initialize("android.intent.action.SEND_MULTIPLE", "")
    Dim Uris As List
    Uris.Initialize
    Dim uri1 As Uri ' Pon la libreria ContentResolver
    If Tipo = "Trazabilidad" Then
        intent1.putExtra("android.intent.extra.SUBJECT", "XLS de trazabilidad del " & Modulo1.F_Dia & " " & F_Ficheros)
        uri1.Parse("file://" & File.Combine(Modulo1.Ruta,"XLS de trazabilidad.zip" ))
    Else
        intent1.putExtra("android.intent.extra.SUBJECT", "XLS de Produccion")
        uri1.Parse("file://" & File.Combine(Modulo1.Ruta,"Producciones.xls" ))
    End If
    intent1.SetType("*/*")
    Uris.Add(uri1)
 
    Dim jo As JavaObject = intent1
    jo.RunMethod("putExtra", Array("android.intent.extra.STREAM", Uris))
    StartActivity(intent1)
End Sub