Sub SendAndroid
astream.Write("Connection: keep-alive").Write(eol) '<--- keep-alive
astream.Write("Content-Length: ").Write(NumberFormat(57 + storedMessage.Length, 0, 0)).Write(eol)
astream.Write(eol)
astream.Write("{""data"":{""title"":""").Write(storedMessage).Write(""",""body"":""""},""to"":""\/topics\/general""}")
End Sub