And the answer is:
Sub AppStart (Args() As String)
Dim sb As StringBuilder
sb.Initialize
For i = 1 To 16000
sb.Append("a")
Next
SendMessage("general", "title", sb.ToString)
StartMessageLoop
End Sub
Output:
{"error":"MessageTooBig"}
[jobname=fcm, success=false, username=
, password=, errormessage=Bad Request, target=class b4j.example.main
, taskid=1, req=anywheresoftware.b4h.okhttp.OkHttpClientWrapper$OkHttpRequest@2d98a335, tag=java.lang.Object@16b98e56
, httputils2service=null]