Private Sub XMLRead(vCmp As SAPbobsCOM.Company, vBP As SAPbobsCOM.BusinessPartners)
Dim FileName As String
Dim Ecount As Long
Dim ii As Long
FileName = "c:\myXml.xml"
'Get the number of Business object in the file ...
Ecount = vCmp.GetXMLelementCount(FileName)
'Run a loop through the objects and when the first
'BusinessPartner object is found, load it and then stop.
For ii = 0 To Ecount - 1
If vCmp.GetXMLobjectType(FileName, ii) = oBusinessPartners Then
'Read the Business object data
Set vBP = vCmp.GetBusinessObjectFromXML(FileName, ii)
Exit For
End If
Next ii