**Example:**

Sub FieldUpdate()

Dim XMLHttpRequestObj, ALMServer, ALMDomain, ALMProject, EntityType, EntityID, FieldName, FieldNewValue, ReqUpdateStr

Set XMLHttpRequestObj = CreateObject(''Msxml2.ServerXMLHTTP.6.0'')

ALMServer = ''http://localhost:8080/qcbin'' ''<--No trailing slash ALMDomain = ''DEFAULT'' ALMProject = ''ALM_DEMO'' EntityType = ''defect'' ''<--Singular/(no ''s'') (Example: defect, design-step, requirement, run, run-step, test, test-set) EntityID = ''1'' FieldName = ''owner'' FieldNewValue = ''alex_alm'' ReqUpdateStr = '''' & FieldNewValue & ''''

XMLHttpRequestObj.open ''PUT'', ALMServer & ''/rest/domains/'' & ALMDomain & ''/projects/'' & ALMProject &''/'' & EntityType & ''s/'' & EntityID, False
XMLHttpRequestObj.setRequestHeader ''Content-Type'',''application/xml''
XMLHttpRequestObj.setRequestHeader ''Accept'',''application/xml''
XMLHttpRequestObj.send(ReqUpdateStr)

MsgBox ''-- Field Update --'' & vbCrLf & _
''Status Code : '' & XMLHttpRequestObj.status & vbCrLf & _
''Status Text : '' & XMLHttpRequestObj.statusText & vbCrLf & _
''-------------------'' & vbCrLf & _
''Response Text : '' & vbCrLf & XMLHttpRequestObj.responseText, , ''Field Update''

Set XMLHttpRequestObj = Nothing

End Sub