Android Question OkHttpUtils2 instead HttpUtils2 in WebService

Dim SRaiz As StringBuilder
    SRaiz.Initialize
    SRaiz.Append("<?xml version='1.0' encoding='utf-8'?>")
    SRaiz.Append("<soap:Envelope xmlns:xsi='http://www.w3.org/2001/XMLSchema-instance' xmlns:xsd='http://www.w3.org/2001/XMLSchema' xmlns:soap='http://schemas.xmlsoap.org/soap/envelope/'>")
    SRaiz.Append("  <soap:Body>")
   
    Dim SFinal As StringBuilder
    SFinal.Initialize
    SFinal.Append("  </soap:Body>")
    SFinal.Append("</soap:Envelope>")

S.Initialize
            ' Dim Sql As String = "Insert into UbicacionGPS(Persona, Latitud, Longitud, InstanteTerminal, Estado) Values ('"
                 
            S.Append(SRaiz.ToString)
            S.Append("      <SetGPS xmlns='http://tempuri.org/'>")
            S.Append("      <Empresa>" & Empresa & "</Empresa>")
            S.Append("      <Terminal>xxxxxxx</Terminal>")
            S.Append("      <Usuario>" & Terminal & "</Usuario>")
            S.Append("      <Latitud>" & modVarios.V_Config.UltimaLat &  "</Latitud>")
            S.Append("      <Longitud>" & modVarios.V_Config.Ultimalon & "</Longitud>")
            S.Append("      <Estado>" & Estado & "</Estado>")
            S.Append("      <Notas>" & Notas  & "</Notas>")
            S.Append("      </SetGPS>")
            S.Append(SFinal.ToString)
            RequestSoapXML = S.ToString
            'Log(S.ToString )
           
            job2.Initialize(job2,Me)'ignore
            job2.PostString(url,RequestSoapXML)

            'job2.GetRequest.SetContentType("application/json")
           
            'job2.GetRequest.SetHeader("Content-Type", "text/xml; charset=utf-8")
            job2.GetRequest.SetHeader("Content-Type", "Application/soap+xml; charset=utf-8")
            Log("Solicitud a WS Enviada")

Sub JobDone (job As HttpJob)
    'Msgbox("JobName = " & job.JobName & ", Success = " & job.Success,"")
    Dim txt As String
    Dim ErrorProducido As Boolean
    Try
     

        'StartService( HttpUtils2Service)
        ErrorProducido = False
        If job.Success = True Then

            txt = job.GetString

         


        Else

            'Msgbox("Error al terminar un trabajo en el WEBSERVICE" & CRLF & job.ErrorMessage ,"")
            ToastMessageShow("Error: " & job.ErrorMessage, True)
            ErrorProducido  = True

                 
        End If
     
        job.Release
        If ErrorProducido = False Then

            'SE extrae los sacado del SW y se carga al PARSE. Éste se ejecutará al finalizar: ver Parser_EndElement
            Dim Istream As InputStream
            Istream =  StringToInputStream(txt )
            Log(txt)
            parser.Parse(Istream , "Parser")
            Istream.Close

     
        End If
    Catch
        Log(LastException)
    End Try

End Sub