Public Sub WebServiceRMWS()
Dim werte As Variant
Dim key As Variant
Dim myValue As Variant
Set DMIService = New DMIService
Set oXML = CreateObject("msxml2.DOMDocument.4.0")
oXML.LoadXML DMIService.execute(WEBSERVICE, "GetWDVBSEvents", "RMWS_ConfigurationReadSoap", "")
Dim xDoc As New MSXML2.DOMDocument60
If xDoc.Load("E:\Temp\Registry\DMI Manufacturing Transactions\XML.xml") Then
Dim xNode As IXMLDOMNode
Set xNode = xDoc.SelectSingleNode("/GetWDVBSEvents/VBAEvents")
xDoc.SelectSingleNode ("/GetWDVBSEvents/VBAEvents/VBAEvent[@Name='PK_OnPallet_Selection']")
Debug.Print xDoc.Text
cleanup:
If Not xDoc Is Nothing Then Set xDoc = Nothing
If Not xNode Is Nothing Then Set xNode = Nothing
End Sub