Dim Query As String = "1234567890"
    Dim xml As String = $"<?xml version="1.0" encoding="utf-8"?>
<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/">
  <soap:Body>
      <TWSelect xmlns="http://tempuri.org/">
      <Query>${Query}</Query>
    </TWSelect>
  </soap:Body>
</soap:Envelope>"$


    Dim j5 As HttpJob
    j5.Initialize("",Me)
    j5.PostString("https://2.3.4.5/WebServer.asmx",xml)
    j5.GetRequest.SetContentType("text/xml; charset=utf-8")
    j5.GetRequest.SetHeader("SOAPaction",$""http://tempuri.org/TWSelect""$)
    Try
        wait for (j5) JobDone(j5 As HttpJob)
        If j5.Success Then
            Dim xm2 As Xml2Map
            xm2.Initialize
            Dim root As Map=xm2.Parse(j5.GetString)
            Dim envelope As Map = root.Get("Envelope")
            Dim body As Map = envelope.Get("Body")
            Dim TWSelectResponse As Map = body.Get("TWSelectResponse")
            Dim TWSelectResult As Map = TWSelectResponse.Get("TWSelectResult")
            If TWSelectResult.Get("diffgram") Is Map Then
                Dim Diffgram As Map = TWSelectResult.Get("diffgram")
                Dim NewDataset As Map = Diffgram.Get("NewDataSet")
                Dim Dati As List = NewDataset.Get("Dati")
                Dim Tabella As List = Dati
                For Each Record As Map In Tabella
                    Log(Record.Get("ID_RECORD") & " <> " & Record.Get("Note") & " ")
                Next
            End If
        Else
            Log (j5.ErrorMessage)
            Return "Manca connessione con server." &  _
               "Non è possibile proseguire."
        End If
        j5.Release
        Return "OK"
    Catch
        Return "Manca connessione con Server." 
    End Try