**Example:**
Sub DeleteEntityID()
Dim ALMServer, ALMDomain, ALMProject, EntityType, EntityID, XMLHttpRequestObj
ALMServer = ''http://localhost:8080/qcbin'' ''<--No trailing slash
ALMDomain = ''DEFAULT''
ALMProject = ''ALM_DEMO''
EntityType = ''defect'' ''<--Singular, no ''s'' (defect, design-step, requirement, run, run-step, test, test-set)
EntityID = ''1''
Set XMLHttpRequestObj = CreateObject(''Msxml2.ServerXMLHTTP.6.0'')
XMLHttpRequestObj.open ''DELETE'', ALMServer & ''/rest/domains/'' & ALMDomain & ''/projects/'' & ALMProject & ''/'' & EntityType & ''s/'' & EntityID, False
XMLHttpRequestObj.setRequestHeader ''Accept'',''application/xml''
XMLHttpRequestObj.send
MsgBox ''-- Delete Entity ID --'' & vbCrLf & _
''Status Code : '' & XMLHttpRequestObj.status & vbCrLf & _
''Status Text : '' & XMLHttpRequestObj.statusText & vbCrLf & _
''-------------------'' & vbCrLf & _
''Response Text : '' & vbCrLf & XMLHttpRequestObj.responseText, , ''Delete Entity''
Set XMLHttpRequestObj = Nothing
End Sub