Dim API_KEY As String
API_KEY = "AAAAWSB9..."
success = glob1.UnlockBundle("QmSBAM....")
If (success <> 1) Then
    Debug.Print glob1.LastErrorText
    Exit Sub
End If
Dim http As New ChilkatHttp
http.SetRequestHeader "Authorization", "Key=" & API_KEY
http.SetRequestHeader "ContentType", "application/json"
http.SetRequestHeader "Accept", "application/json"
jsonText = "{""data"":{""title"":""This is the title"",""body"":""Hello!!!!""},""to"":""\/topics\/general""}"
Dim resp As ChilkatHttpResponse
Set resp = http.PostJson2("https://fcm.googleapis.com/fcm/send", "application/json", jsonText)
If (http.LastMethodSuccess <> 1) Then
    Debug.Print http.LastErrorText
Else
    ' Display the JSON response.
    Debug.Print resp.BodyStr
End If