Dim text As String
text=$"
{"mode":"challenge","configuration":{"target":"ip","value":"7.7.7.7"},"notes":"This rule is on because of an event that occured on date X"}
"$
Dim job As HttpJob
job.Initialize("block",Me)
job.PostString("https:...",text)
job.GetRequest.SetHeader("Content-Type","application/json")