**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