Spanish Problemas Notificaciones push

Sub fm_MessageArrived (Message As RemoteMessage)
    Dim status As Int = Message.GetData.Get("status")
'    Dim picture As Bitmap = LoadBitmapResize(File.DirAssets, "autorizacion.png", 24dip, 24dip, False)
    Log(Message.GetData)
    If B4XPages.IsInitialized And B4XPages.GetManager.IsForeground Then
        Log("B4XPages.IsInitialized")
        Select status
            Case 1, 3
'                Dim PageMain As B4XMain = B4XPages.GetPage("Main")
'                PageMain.load_apearPage(Message.GetData.Get("title"), Message.GetData.Get("body"), Message.GetData.Get("action"))
        End Select
    Else
        Log("manda push")
        Select status
            Case 1, 3
                Notification_WithCustomSound(Message.GetData.Get("title"), Message.GetData.Get("body"), Message.GetData.Get("action"))
        End Select
    End If
End Sub

Sub Notification_WithCustomSound(title As String, body As String, moduleName As String)
    Dim FileName As String = "ringtone1.mp3"
    File.Copy(File.DirAssets, FileName, Provider.SharedFolder, FileName)
    Dim in As Intent
    in.Initialize(in.ACTION_VIEW, "")
    Provider.SetFileUriAsIntentData(in, FileName)
    Dim n As NB6
    n.Initialize("custom sound", Application.LabelName, "HIGH")
    n.SmallIcon(LoadBitmapResize(File.DirAssets, "logo.png", 32dip, 32dip, True))
    
    n.SetDefaults(False, True, True)
    n.CustomSound(Provider.GetFileUri(FileName))
    
    Dim Notification As Notification = n.Build(title, body, moduleName , Main)
    Notification.Notify(3)
End Sub

        Dim iosalert As Map =  CreateMap("title": "Titulo", "body": "Texto")
        message.Put("notification", iosalert)