B4J Question Return from browser to B4J app

 Log("Response: " & Response.ToString)
Result->Response:

Private Sub PrepareServer
    Log("Prepare server")
    If server.IsInitialized Then server.Close
    If astream.IsInitialized Then astream.Close
    Do While True
        Try
            server.Initialize(port, "server")
            server.Listen
            Exit
        Catch
            port = port + 1
            Log(LastException)
        End Try
    Loop
    Wait For server_NewConnection (Successful As Boolean, NewSocket As Socket)
    If Successful Then
        astream.Initialize(NewSocket.InputStream, NewSocket.OutputStream, "astream")
        Dim Response As StringBuilder
        Response.Initialize
        Log("Response: " & Response.ToString)
        Do While Response.ToString.Contains("Host:") = False
            Wait For AStream_NewData (Buffer() As Byte)
            Response.Append(BytesToString(Buffer, 0, Buffer.Length, "UTF8"))
        Loop
        astream.Write(("HTTP/1.0 200" & Chr(13) & Chr(10)).GetBytes("UTF8"))
        Sleep(50)
        astream.Close
        server.Close
        ParseBrowserUrl(Regex.Split2("$",Regex.MULTILINE, Response.ToString)(0))
    End If
    
End Sub

Private Sub GetTokenFromAuthorizationCode (Code As String)
    Log("Getting access token from authorization code..." & Code)
    Dim j As HttpJob
    j.Initialize("", Me)
    '$"https://login.microsoftonline.com/${tenant}/oauth2/v2.0/token"$, sb.ToString.GetBytes("UTF8")
    Dim postString As String = $"$token"${Code}"$
    postString = AddClientSecret(postString)
    j.PostString($"https://login.microsoftonline.com/${mTenant}/oauth2/v2.0/"$, postString)
       
    Wait For (j) JobDone(j As HttpJob)
    'Log("Response: " & j.poststring)
    If j.Success Then
        Log("Success")
        TokenInformationFromResponse(j.GetString)
    Else
        Log("else")
        ResetToken
        RaiseEvent(False)
    End If
    j.Release
End Sub

'Not in Erel's sample. Added from https://www.b4x.com/android/forum/threads/logging-in-to-ms-365.148816/
Sub GetTokenImpl(authCode As String) As ResumableSub 'añadido de MSLOGIN
    Log("GetTokenImpl: " & authCode)
    Dim params As Map
    params.Initialize
    params.Put("client_id", mClientId)
    params.Put("code", authCode)
    params.Put("redirect_uri", redirectURI)
    params.Put("grant_type", "authorization_code")

    Dim sb As StringBuilder
    sb.Initialize
    For Each key As String In params.Keys
        sb.Append(key).Append("=").Append(params.Get(key)).Append("&")
    Next
    sb.Remove(sb.Length - 1, sb.Length) ' Remove the last "&"
    Dim hc As OkHttpClient
    hc.Initialize("hc")
    Dim req As OkHttpRequest
    req.InitializePost2($"https://login.microsoftonline.com/${mTenant}/oauth2/v2.0/token"$, sb.ToString.GetBytes("UTF8"))
    hc.Execute(req, 1)
    Log("Llega aquí")
    Wait For hc_ResponseSuccess (Response As OkHttpResponse, TaskId As Int)
    Log("Response: " & Response.GetHeaders)
    If TaskId = 1 Then
        Log("TaksId = 1") '<------ The sub doesn't reach this line
        Response.GetAsynchronously("response", File.OpenOutput(xui.DefaultFolder, "response.txt", False), True, TaskId)
        Wait For response_StreamFinish (Success As Boolean, TaskId As Int)
        If Success Then
            Dim parser As JSONParser
            parser.Initialize(File.ReadString(xui.DefaultFolder, "response.txt"))
            TokenInformationFromResponse(File.ReadString(xui.DefaultFolder, "response.txt"))
        Else
            Log("Error: " & LastException.Message)
        ResetToken
        RaiseEvent(False)
        End If

        Return Null
    End If
    Return Null
End Sub

    Dim postString As String = $"client_id=${mClientId}&code=${Code}&redirect_uri=${GetRedirectUri}&grant_type=authorizacion_code"$
    postString = AddClientSecret(postString)
    Log("Poststring: " & postString)
    j.PostString($"https://login.microsoftonline.com/${mTenant}/oauth2/v2.0/"$, postString)

    Dim params As Map
    params.Initialize
    params.Put("client_id", mClientId)
    params.Put("code", authCode)
    params.Put("redirect_uri", redirectURI)
    params.Put("grant_type", "authorization_code")