Solucionado!!!!
publico el código con el que lo solucioné, quizá le sirva a otros.
------------------------------------------------------------
Sub btnConsultar_Click
RequestSoapXML = _
"<?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>" & _
"<Consultar xmlns='Servicio'/>" & _
"</soap:Body>" & _
"</soap:Envelope>"
job2.PostString(url,RequestSoapXML)
job2.GetRequest.SetHeader("Content-Type", "text/xml; charset=utf-8")
End Sub
Sub btnEnviar_Click
RequestSoapXML = _
"<?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>" & _
"<Respuesta xmlns='Servicio'>" & _
"<respuesta>" & etxRespuesta.Text & "</respuesta>" & _
"<latitud>" & lblLat.Text & "</latitud>" & _
"<longitud>" & lblLon.Text & "</longitud>" & _
"<altura>" & lblAlt.Text & "</altura>" & _
"</Respuesta>" & _
"</soap:Body>" & _
"</soap:Envelope>"
job2.PostString(url,RequestSoapXML)
job2.GetRequest.SetHeader("Content-Type", "text/xml; charset=utf-8")
End Sub
Sub JobDone (job As HttpJob)
'Msgbox("JobName = " & job.JobName & ", Success = " & job.Success,"")
If job.Success = True Then
Msgbox(job.GetString,"")
'lblConsultar.Text = job.GetString
ToastMessageShow("Succes= " & job2.Success, True)
Else
'Log("Error: " & job.ErrorMessage)
ToastMessageShow("Error: " & job.ErrorMessage, True)
End If
job.Release
End Sub
------------------------------------------------------------------:sign0098::sign0098::sign0098::sign0098::sign0098: