Spanish API para mostrar estadísticas deportivas

Sub Button1_Click
Dim besoccerapps As String
Dim APIKEY As String 'Aquí el dato que te da tu cuenta besoccerapps
besoccerapps = $"https://apiclient.besoccerapps.com/scripts/api/api.php?key=${APIKEY}&tz=Europe/Madrid&format=json&req=league_status&id=1&year=2023"$  
Dim url As String = besoccerapps
Dim http As HttpJob
http.Initialize("http", Me)
http.PostString(url,"")
Wait For (http) JobDone(post As HttpJob)
Log(post.Success)
Log(post.GetString)
End Sub

Private Sub Button1_Click
 
    Dim besoccerapps As String
    Dim APIKEY As String 'Aquí el dato que te da tu cuenta besoccerapps
    APIKEY= ""
    'Devuelve los partidos que se juegan en el presente dia '
    besoccerapps = $"https://apiclient.besoccerapps.com/scripts/api/api.php?key=${APIKEY}&format=json&req=matchsday"$
    Dim url As String = besoccerapps
    Dim http As HttpJob
    http.Initialize("http", Me)
    http.PostString(url,"")
    Wait For (http) JobDone(post As HttpJob)
    Log(post.Success)
    Log(post.GetString)
    Dim matches As String
    Dim today As Short
    Dim spain As Short
    Dim m As Map
    Dim texto As String 'aqui se guardan los datos devueltos por la API'
    texto=post.GetString
    Dim json As JSONParser
    json.Initialize(texto)
    m = json.NextObject
    matches = m.Get("matches")
     m=m.Get("summary")
    today=m.Get("today") 'extraemos el valor de today
    spain=m.Get("spain") 'extraemos el valor de spain
    Log("today:  "& today & CRLF)' en el caso del presente dia devuelve 158'
    Log("Spain:  "& spain & CRLF)' y en España se juegan 9 partidos'
 
 
End Sub