Italian Notifiche PUSH con Firebase, capire su quale ha cliccato l'utente

Sub Process_Globals
    Private fm As FirebaseMessaging
    Dim NotifyCount As Int
End Sub

Sub Service_Create
    fm.Initialize("fm")
End Sub

Public Sub SubscribeToTopics
    fm.SubscribeToTopic("general") 'you can subscribe to more topics
End Sub

Sub Service_Start (StartingIntent As Intent)
    If StartingIntent.IsInitialized Then fm.HandleIntent(StartingIntent)
    Sleep(0)
    Service.StopAutomaticForeground 'remove if not using B4A v8+.
End Sub

Sub fm_MessageArrived (Message As RemoteMessage)
    Log("Message arrived")
    Log($"Message data: ${Message.GetData}"$)
    Dim n As Notification
    n.Initialize
    n.Icon = "icon"
    n.Sound = True
    NotifyCount=NotifyCount+1
    Dim Tag As String = NotifyCount & " | " & Message.GetData.Get("title") & "|" & Message.GetData.Get("body")
    Main.Tag = Tag
    n.SetInfo2(Message.GetData.Get("title"), Message.GetData.Get("body"), Tag, Main)
    n.Notify(NotifyCount)
End Sub

Sub Activity_Resume
  Dim in As Intent
  in = Activity.GetStartingIntent
  If in.HasExtra("Notification_Tag") Then
    Log(in.GetExtra("Notification_Tag")) 'Will log the tag
  End If
End Sub

Sub Activity_Create(FirstTime As Boolean)
    If Tag <> "" Then
        Log(Tag)
        Dim ms() As String = Regex.Split("\|",Tag)
        If ms.Length > 1 Then
            MsgboxAsync (ms(0), ms(1))
        End If
        Tag = ""
    End If

Sub Activity_Resume
  Dim in As Intent
  in = Activity.GetStartingIntent
  If in.HasExtra("Notification_Tag") Then
    Log(in.GetExtra("Notification_Tag")) 'Will log the tag
  End If
End Sub