Private Sub Button1_Click
Dim token As String = "----usertokenhere----"
Dim ean As String = EditText1.Text
Dim url As String = $"https://api.ean-search.org/api?token=${token}&op=barcode-lookup&format=json&ean=${ean}"$
Label1.Text = url
Label2.Text = "..."
Dim j As HttpJob
j.Initialize("", Me)
j.Download(url)
Wait For (j) JobDone(j As HttpJob)
If j.Success Then
Label2.Text = j.GetString
Else
Label2.Text = j.ErrorMessage
End If
j.Release
End Sub