Can you try this for me and tell me what happens?
Code:Private Sub Command46_Click() Dim objXML As MSXML2.DOMDocument Dim objElem As MSXML2.IXMLDOMElement Dim strXML As String Set objXML = New MSXML2.DOMDocument strXML = "<Laboratory><LaboratoryAeroInv>0</LaboratoryAeroInv><LaboratoryAeroPrice>2525</LaboratoryAeroPrice></Laboratory>" If objXML.LoadXML(strXML) = False Then MsgBox ("XML LOAD ERROR") Else Set objElem = objXML.selectSingleNode("//LaboratoryAeroPrice") Text4.Text = objElem.getAttribute("value") End If End Sub




Reply With Quote