Android Question Base64 to PDF problem

Sub cBase64 ( str As String)
    Dim B64 As Base64
    Dim outs As OutputStream
    Dim I As Intent
    Dim ss As String
    Dim FileName As String = "dataP.pdf"
    File.Delete(File.DirInternal, "dataP.pdf")
    outs = File.OpenOutput(File.DirInternal, "dataP.pdf", False)
    outs.WriteBytes(B64.DecodeStoB( str ) , 0 , B64.DecodeStoB( str ).Length )
    
    Try
        'Dim Intent1 As Intent
        'Dim pm As PackageManager
        'Intent1 = pm.GetApplicationIntent("com.asus.filemanager")
        'StartActivity (Intent1)
        Dim i As Intent
        i.Initialize(i.ACTION_VIEW, "file://" & File.Combine(File.DirInternal, "dataP.pdf"))
        i.SetType("application/pdf")
        StartActivity(i)
    Catch
        ToastMessageShow("Error al ejecutar", True)
    End Try
    
End Sub

ToastMessageShow(LastException, True)