Public Sub ReadSingleResult(Query As String,Field As String) As ResumableSub
Dim j As HttpJob
Dim Result As String = ""
j.Initialize("", Me)
j.Download($"${url}query.php?query=${Query}&Field=${Field}"$)
Wait For (j) JobDone(j As HttpJob) <<<<------- ERROR
'Log(j.GetString)
If j.Success Then
Result=J.GetString
End If
Return Result
End Sub