Dim msoapClient As MSSOAPLib30.SoapClient30
Dim DomElement As IXMLDOMElement
Dim domlist As IXMLDOMNodeList
Dim node As IXMLDOMNode
Dim childNode As IXMLDOMNode

Set msoapClient = New MSSOAPLib30.SoapClient30
    msoapClient.MSSoapInit "http://dotnet/wdoService/Service1.asmx?wsdl

  Dim result_DataSet  As IXMLDOMSelection
 Set result_DataSet = msoapClient.GetPages()

      Set DomElement = result_DataSet.Item(1)
      Set domlist = DomElement.getElementsByTagName("Page")
 
      For Each node In domlist
         For Each childNode In node.childNodes
            Select Case childNode.baseName
                   Case "idPage"
                        PageID = childNode.Text
                   Case "PageName"
                        PageName = childNode.Text
             End Select
         Next

Gru?

Ralf