For Each returnedRecord In Returned_transactionsets.Entities Try If returnedRecord.Attributes.Contains(/new_apacs18file/) Then WritetoBACSFile(Replace(Replace(returnedRecord.Attributes(/new_apacs18file/).ToString, vbCrLf & vbCrLf, vbCrLf), vbCrLf & vbCrLf, vbCrLf)) ' Update record to Processing Dim recordId As New Guid(LineArray(i).ToString) Dim UpdTranset As New Entity(/new_transactionsets/) With { .Id = recordId } ' update file status to Processing Option set value 3 UpdTranset.Attributes.Add(/new_submissionstatus/, New OptionSetValue(3)) UpdTranset.Attributes.Add(/new_bureauvolumenumber/, volumenumber) service.Update(UpdTranset) End If Catch ex As Exception Writetolog(ex.Message.ToString) Throw New InvalidPluginExecutionException(/Error looking up new_apacs18file - / & ex.Message.ToString) End TryNext