Felix.666, tu pregunta inicial era: "estoy probando los webservice, y cuando es por puerto 80, no hay problemas, pero para consumir un webservice por otro puerto ej. 8091, da siempre error interno de servidor"
He probado tu codigo (falta encabezado) con mi servidor
XML = XML & "<HelloWorld xmlns='http://www.miweb.com:8091/'>"
XML = XML & "<Nombre>" & Nombre & "</Nombre>"
XML = XML & "</HelloWorld>"
XML = XML & "</soap12:Body>"
XML = XML & "</soap12:Envelope>"
XML = XML.Replace("'", Chr(34))
job1.Initialize("JOBSOAP", Me)
job1.PostString ("www.miweb.com:8091/nombredelwebservice.asmx", XML)
y efectivamente da error el error interno.
Pero quitando el puerto en la linea:
XML = XML & "<HelloWorld xmlns='http://www.miweb.com:8091/'>"
me funciona correctamente
Por tanto tu codigo completo deberia quedar asi:
Sub ConsumirServicioSOAP(Nombre As String)
Dim job1 As HttpJob
Dim XML As String
XML = ""
XML = XML & "<?xml version='1.0' encoding='utf-8'?>"
XML = XML & "<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'>"
XML = XML & "<soap12:Body>"
XML = XML & "<HelloWorld xmlns='http://www.miweb.com/'>"
XML = XML & "<Nombre>" & Nombre & "</Nombre>"
XML = XML & "</HelloWorld>"
XML = XML & "</soap12:Body>"
XML = XML & "</soap12:Envelope>"
XML = XML.Replace("'", Chr(34))
job1.Initialize("JOBSOAP", Me)
job1.PostString ("http://miweb.com:8091/Saljub.asmx", XML)
job1.GetRequest.SetContentType("application/soap+xml")
End Sub