Android Question FireBase RuntimeException

    Try
        CallSubDelayed(FirebaseMessaging, "SubscribeToTopics") 'notification test
    Catch

       Log(LastException)
    End Try

'FirebaseMessaging
#Region  Service Attributes
    #StartAtBoot: False
#End Region

Sub Process_Globals   
   Private fm As FirebaseMessaging
End Sub

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

Public Sub SubscribeToTopics
    Try
        If Starter.sendNotifaction Then fm.SubscribeToTopic("mysalarynew") 'you can subscribe to more topics
        fm.SubscribeToTopic("mysalarynewversion")
'        fm.SubscribeToTopic("mytests")   
'        fm.SubscribeToTopic("mytestsnew")   
    Catch
        Log(LastException)
    End Try
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}"$)
        
    Try
        Dim title As String
        title = Message.GetData.Get("title")
        title = title.Replace(" ","")
        If title = "promo" Then
            Dim str() As String = Regex.Split("\|",Message.GetData.Get("body"))
            Starter.promolink = str(2) 
            Dim n As Notification
            n.Initialize
            n.AutoCancel = True
            n.Light = True
            n.Sound = False
            n.Vibrate = True
            n.Icon = "icon"           
            n.SetInfo(str(0), str(1), openlink)
            n.Notify(1)   
        else if title.Contains("newversion") Then 'new version
           Starter.promolink = "https://play.google.com/store/apps/details?id=www.sagital.mysalarynew"
           Dim n As Notification
           n.Initialize
           n.AutoCancel = True
           n.Light = True
           n.Sound = False
           n.Vibrate = True           
           n.Icon = "icon"
           n.SetInfo("יצא עדכון חדש לשכרניק", "יצא עדכון חדש, מומלץ לעדכן את שכרניק!", openlink)
           n.Notify(1)   
        Else
           Dim n As Notification
           n.Initialize
           n.AutoCancel = True
           n.Light = True
           n.Sound = False
           n.Vibrate = True           
           n.Icon = "icon"
           n.SetInfo(Message.GetData.Get("title"), Message.GetData.Get("body"), Main)
           n.Notify(1)               
        End If       
    Catch
        Log(LastException)
    End Try
End Sub

Sub Service_Destroy

End Sub