Spanish jOkHttpUtils2_NONUI, OkHttp No me funciona con ASMX

'
Public Sub Saludar()
    '
    Dim PuertoServidor  As String = "8173"
    Dim WebSiteServidor As String = "WebX.asmx"
    Dim Servidor        As String = "Omar-PC"
    Dim IpServidor      As String = "localhost"
    '
    Dim DataXML As String
    '
    DataXML = $"<?xml version="1.0" encoding="utf-8"?>
<soap12:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soap12="http://www.w3.org/2003/05/soap-envelope">
  <soap12:Body>
    <HelloWorld xmlns="http://$SERVIDOR$/" />
  </soap12:Body>
</soap12:Envelope>"$
    '
    DataXML = DataXML.Replace("$SERVIDOR$", Servidor)
    '
    Dim XJob As HttpJob
    XJob.Initialize("", Me)
    XJob.PostString("http://"& IpServidor & ":" & PuertoServidor & "/" & WebSiteServidor,  DataXML)
    '
    XJob.GetRequest.SetContentType("application/soap+xml; charset=utf-8")
    '
    Log("Antes del Wait For") '<--- No avanza de aquí si la aplicación es de consola
    '
    Wait For (XJob) jobdone(XJob As HttpJob)
    '
    Log("Despues del Wait For")
    '
    If XJob.success Then
        '
        Dim Datos() As String
        Datos = Regex.Split("HelloWorldResult>",XJob.GetString)
        '
        Log("RESPUESTA: " & Datos(1).SubString2(0,Datos(1).Length -2))
        '
    Else
        '
        Log(XJob.ErrorMessage)
        '
    End If
    XJob.Release
    '
End Sub

Sub AppStart (Args() As String)
[INDENT]Saludar
StartMessageLoop[/INDENT]
End Sub